sigsystem.t: put miniperl skip earlier
authorFather Chrysostomos <sprout@cpan.org>
Sat, 31 Dec 2011 19:02:50 +0000 (11:02 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Sat, 31 Dec 2011 19:37:06 +0000 (11:37 -0800)
Under minitest, extensions like constant.pm and Data::Dumper
haven’t been processed yet, so they won’t be available.

t/op/sigsystem.t

index c20d9d2..ec7f049 100644 (file)
@@ -2,6 +2,7 @@
 
 BEGIN {
       require './test.pl';
+      skip_all_if_miniperl();
 }
 
 use strict;
@@ -11,7 +12,7 @@ use Data::Dumper;
 plan tests => 4;
 
 SKIP: {
-    skip 'Platform doesn\'t support SIGCHLD', 4 if is_miniperl() or not exists $SIG{CHLD};
+    skip 'Platform doesn\'t support SIGCHLD', 4 if not exists $SIG{CHLD};
     require POSIX;
     require Time::HiRes;