Replace Test::More by test.pl

3 files changed, 13 insertions, 5 deletions

diff --git a/t/io/perlio.t b/t/io/perlio.t
index c1eebecc72..c5f236d83b 100644
--- a/t/io/perlio.t
+++ b/t/io/perlio.t
@@ -6,9 +6,10 @@ BEGIN {
 	    print "1..0 # Skip: PerlIO not used\n";
 	    exit 0;
 	}
+	require './test.pl';
 }
 
-use Test::More tests => 39;
+plan tests => 39;
 
 use_ok('PerlIO');
 
diff --git a/t/io/perlio_leaks.t b/t/io/perlio_leaks.t
index 6bb6369e55..a7cdf28897 100644
--- a/t/io/perlio_leaks.t
+++ b/t/io/perlio_leaks.t
@@ -1,9 +1,15 @@
 #!perl
 # ioleaks.t
 
+BEGIN {
+    chdir 't' if -d 't';
+    @INC = '../lib';
+    require './test.pl';
+}
+
 use strict;
 use warnings;
-use Test::More 'no_plan';
+plan 'no_plan';
 
 # :unix   -> not ok
 # :stdio  -> not ok
@@ -15,9 +21,9 @@ TODO: {
         my $base_fd = do{ open my $in, '<', $0 or die $!; fileno $in };
 
         for(1 .. 3){
-	    local $TODO;
+	    local $::TODO;
 	    if ($_ > 1 && $layer =~ /^:(unix|stdio)$/) {
-		$TODO = "[perl #56644] PerlIO resource leaks on open() and then :pop in :unix and :stdio"
+		$::TODO = "[perl #56644] PerlIO resource leaks on open() and then :pop in :unix and :stdio"
 	    }
 	    open my $fh, "<$layer", $0 or die $!;
 
diff --git a/t/io/perlio_open.t b/t/io/perlio_open.t
index e8e10fb05b..5f6a65cc10 100644
--- a/t/io/perlio_open.t
+++ b/t/io/perlio_open.t
@@ -16,12 +16,13 @@ BEGIN {
 	print "1..0 # Skip: no Fcntl (how did you get this far?)\n";
 	exit 0;
     }
+    require './test.pl';
 }
 
 use strict;
 use warnings;
 
-use Test::More tests => 6;
+plan tests => 6;
 
 use Fcntl qw(:seek);