This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Refactor t/re/no_utf8_pt.t to use test.pl instead of making TAP by hand.
authorColin Kuskie <colink@perldreamer.com>
Wed, 18 Jul 2012 05:07:54 +0000 (22:07 -0700)
committerNicholas Clark <nick@ccl4.org>
Wed, 29 Aug 2012 19:59:56 +0000 (21:59 +0200)
t/re/no_utf8_pm.t

index 8e9dbb9..6595a24 100644 (file)
@@ -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');