Tidy perlio_open.t, by using test.pl skip_all* functions where appropriate.

This reduces the startup boilerplate code by more than half.

diff --git a/t/io/perlio_open.t b/t/io/perlio_open.t
index 5f6a65c..7bd9a70 100644 (file)
--- a/t/io/perlio_open.t
+++ b/t/io/perlio_open.t
@@ -3,20 +3,10 @@
 BEGIN {
     chdir 't' if -d 't';
     @INC = '../lib';
-    if ($ENV{PERL_CORE_MINITEST}) {
-       print "1..0 # Skip: no Fcntl under miniperl\n";
-       exit 0;
-    }
-    unless (find PerlIO::Layer 'perlio') {
-       print "1..0 # Skip: not perlio\n";
-       exit 0;
-    }
-    use Config;
-    unless (" $Config{extensions} " =~ / Fcntl /) {
-       print "1..0 # Skip: no Fcntl (how did you get this far?)\n";
-       exit 0;
-    }
     require './test.pl';
+    skip_all('not perlio') unless (find PerlIO::Layer 'perlio');
+    skip_all_if_miniperl("no dynamic loading on miniperl, no Fcntl");
+    skip_all_without_extension('Fcntl'); # how did you get this far?
 }
 
 use strict;