Standardise t/uni/*.t on ./test.pl, and remove PERL_CORE boilerplate.

[p5sagit/p5-mst-13.2.git] / t / uni / tie.t

diff --git a/t/uni/tie.t b/t/uni/tie.t
index fa9f268..28ea0dc 100644 (file)
--- a/t/uni/tie.t
+++ b/t/uni/tie.t
@@ -1,13 +1,10 @@
 #!perl -w
 
 BEGIN {
-    if ($ENV{'PERL_CORE'}){
-        chdir 't';
-        @INC = '../lib';
-    }
+    require './test.pl';
 }
 
-use Test::More tests => 9;
+plan (tests => 9);
 use strict;
 
 {
@@ -44,6 +41,6 @@ foreach my $t ("ASCII", "B\366se") {
 }
 
 {
-    local $TODO = "Need more tests!";
+    local $::TODO = "Need more tests!";
     fail();
 }