Add a test for the bootstrap rules for tests in t/

[p5sagit/p5-mst-13.2.git] / t / porting / diag.t

diff --git a/t/porting/diag.t b/t/porting/diag.t
index 573450d..8b7edb6 100644 (file)
--- a/t/porting/diag.t
+++ b/t/porting/diag.t
@@ -1,12 +1,16 @@
 #!/usr/bin/perl
 use warnings;
 use strict;
-use Test::More 'no_plan';
+
+require './test.pl';
+
+plan('no_plan');
+
 $|=1;
 
 my $make_exceptions_list = ($ARGV[0]||'') eq '--make-exceptions-list';
 
-open my $diagfh, "<:raw", "../pod/perldiag.pod"
+open my $diagfh, "<", "../pod/perldiag.pod"
   or die "Can't open ../pod/perldiag.pod: $!";
 
 my %entries;
@@ -46,7 +50,7 @@ sub check_file {
 
   print "# $codefn\n";
 
-  open my $codefh, "<:raw", $codefn
+  open my $codefh, "<", $codefn
     or die "Can't open $codefn: $!";
 
   my $listed_as;
@@ -147,7 +151,8 @@ sub check_file {
       if (exists $entries{$name}) {
         if ($entries{$name}{todo}) {
         TODO: {
-            local $TODO = 'in DATA';
+           no warnings 'once';
+            local $::TODO = 'in DATA';
             fail("Presence of '$name' from $codefn line $.");
           }
         } else {
@@ -351,7 +356,7 @@ U0 mode on a byte string
 Unbalanced string table refcount: (%d) for "%s"
 Undefined top format called
 Unexpected constant lvalue entersub entry via type/targ %d:%d
-Unicode character 0x%04
+Unicode non-character 0x%04
 Unknown PerlIO layer "scalar"
 Unknown Unicode option letter '%c'
 unrecognised control character '%c'