From: Rafael Garcia-Suarez <rgs@consttype.org>
Date: Mon, 26 Apr 2010 07:23:52 +0000 (+0200)
Subject: Don't use Test::More in t/op/* tests
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b1f58cbddd46d8c248a33d0e4867a4170fc55a30;p=p5sagit%2Fp5-mst-13.2.git

Don't use Test::More in t/op/* tests
---

diff --git a/t/op/utf8magic.t b/t/op/utf8magic.t
index 2c915b7..3d942c0 100644
--- a/t/op/utf8magic.t
+++ b/t/op/utf8magic.t
@@ -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;