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

This reduces the startup boilerplate code by more than half.

1 files changed, 3 insertions, 13 deletions

diff --git a/t/io/perlio_open.t b/t/io/perlio_open.t
index 5f6a65cc10..7bd9a70350 100644
--- 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;