Add skip_all_without_perlio() to test.pl, and use it in 8 tests.

[perl5.git] / t / io / utf8.t

diff --git a/t/io/utf8.t b/t/io/utf8.t
index 07f829b..4b01747 100644 (file)
--- a/t/io/utf8.t
+++ b/t/io/utf8.t
@@ -3,15 +3,12 @@
 BEGIN {
     chdir 't' if -d 't';
     @INC = '../lib';
-    unless (find PerlIO::Layer 'perlio') {
-       print "1..0 # Skip: not perlio\n";
-       exit 0;
-    }
+    require './test.pl';
+    skip_all_without_perlio();
 }
 
 no utf8; # needed for use utf8 not griping about the raw octets
 
-BEGIN { require "./test.pl"; }
 
 plan(tests => 55);