skip an alarm using test if the perl signal detection is broken
authorTony Cook <tony@develop-help.com>
Mon, 1 Jul 2013 12:31:53 +0000 (22:31 +1000)
committerTony Cook <tony@develop-help.com>
Mon, 1 Jul 2013 12:31:53 +0000 (22:31 +1000)
Like 5.6.2 in my Ubuntu 32-bit VM

t/250-draw/100-fill.t

index c809f12..e1b851f 100644 (file)
@@ -361,6 +361,7 @@ ok($oocopy->errstr =~ /Unknown hatch type/,
 SKIP:
 {
   skip("can't test without alarm()", 1) unless $Config{d_alarm};
+  skip("Your signals are misconfigured", 1) unless exists $SIG{ALRM};
   local $SIG{ALRM} = sub { die; };
 
   eval {