Refactor t/re/no_utf8_pt.t to use test.pl instead of making TAP by hand.

1 files changed, 8 insertions, 3 deletions

diff --git a/t/re/no_utf8_pm.t b/t/re/no_utf8_pm.t
index 8e9dbb9171..6595a248b3 100644
--- a/t/re/no_utf8_pm.t
+++ b/t/re/no_utf8_pm.t
@@ -1,6 +1,12 @@
 #!./perl
 
-print "1..1\n";
+BEGIN {
+    chdir 't' if -d 't';
+    @INC = '../lib';
+    require './test.pl';
+}
+
+plan tests => 1;
 
 # Make sure that case-insensitive matching of any Latin1 chars don't load
 # utf8.pm.  We assume that NULL won't force loading utf8.pm, and since it
@@ -8,5 +14,4 @@ print "1..1\n";
 # a swash if it thought there was one.
 "\0" =~ /[\001-\xFF]/i;
 
-print "not " if exists $INC{"utf8.pm"};
-print "ok 1\n";
+ok(! exists $INC{"utf8.pm"}, 'case insensitive matching of any Latin1 chars does not load utf8.pm');