This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Convert Devel::Peek's test to Test::More.
[perl5.git] / ext / Devel-Peek / t / Peek.t
index 699afd6..3c90f6e 100644 (file)
@@ -8,12 +8,10 @@ BEGIN {
     }
 }
 
-BEGIN { require "../../t/test.pl"; }
+use Test::More tests => 52;
 
 use Devel::Peek;
 
-plan(52);
-
 our $DEBUG = 0;
 open(SAVERR, ">&STDERR") or die "Can't dup STDERR: $!";
 
@@ -633,7 +631,7 @@ do_test(25,
     BOTTOM_GV = 0x0
     SUBPROCESS = 0                             # $] < 5.009
     TYPE = \'>\'
-    FLAGS = 0x0');
+    FLAGS = 0x4');
 
 do_test(26,
        *PIE{FORMAT},