Refactor 6 tests in t/op and t/run to use skip_all_if_miniperl().

1 files changed, 3 insertions, 7 deletions

diff --git a/t/run/switchC.t b/t/run/switchC.t
index b6231ca6d0..9297286c69 100644
--- a/t/run/switchC.t
+++ b/t/run/switchC.t
@@ -5,19 +5,15 @@
 BEGIN {
     chdir 't' if -d 't';
     @INC = '../lib';
+    require "./test.pl";
+
     unless (find PerlIO::Layer 'perlio') {
 	print "1..0 # Skip: not perlio\n";
 	exit 0;
     }
-    if ($ENV{PERL_CORE_MINITEST}) {
-	print "1..0 # Skip : -C and \$ENV{PERL_UNICODE} are disabled on miniperl\n";
-	exit 0;
-    }
-	
+    skip_all_if_miniperl('-C and $ENV{PERL_UNICODE} are disabled on miniperl');
 }
 
-BEGIN { require "./test.pl"; }
-
 plan(tests => 13);
 
 my $r;