This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Don't use Test::More in t/op/* tests
authorRafael Garcia-Suarez <rgs@consttype.org>
Mon, 26 Apr 2010 07:23:52 +0000 (09:23 +0200)
committerRafael Garcia-Suarez <rgs@consttype.org>
Mon, 26 Apr 2010 07:23:52 +0000 (09:23 +0200)
t/op/utf8magic.t

index 2c915b7..3d942c0 100644 (file)
@@ -1,6 +1,14 @@
-#!perl -w
+#!perl
+
+BEGIN {
+    chdir 't' if -d 't';
+    @INC = '../lib';
+    require './test.pl';
+}
+
+plan tests => 4;
+
 use strict;
-use Test::More;
 
 my $str = "\x{99f1}\x{99dd}"; # "camel" in Japanese kanji
 $str =~ /(.)/;
@@ -15,5 +23,3 @@ $str =~ /(.)/;
 ok !utf8::is_utf8($1), "is_utf8(bytes)";
 scalar "$1"; # invoke SvGETMAGIC
 ok !utf8::is_utf8($1), "is_utf8(bytes)";
-
-done_testing;