Convert Devel::Peek's test to Test::More.
authorNicholas Clark <nick@ccl4.org>
Wed, 30 Jun 2010 16:24:56 +0000 (17:24 +0100)
committerNicholas Clark <nick@ccl4.org>
Wed, 30 Jun 2010 16:25:22 +0000 (17:25 +0100)
The flag change from 0x0 to 0x4 is because Test::More sets autoflush on STDOUT.

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},