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 (file)
--- 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;