Upgrade to Test::Simple 0.53

[p5sagit/p5-mst-13.2.git] / lib / Test / Simple / t / todo.t

diff --git a/lib/Test/Simple/t/todo.t b/lib/Test/Simple/t/todo.t
index 9a16626..88b2e15 100644 (file)
--- a/lib/Test/Simple/t/todo.t
+++ b/lib/Test/Simple/t/todo.t
@@ -18,20 +18,23 @@ if( $th_version < 2.03 ) {
     exit;
 }
 
-plan tests => 15;
+plan tests => 16;
 
 
 $Why = 'Just testing the todo interface.';
 
+my $is_todo;
 TODO: {
     local $TODO = $Why;
 
     fail("Expected failure");
     fail("Another expected failure");
-}
 
+    $is_todo = Test::More->builder->todo;
+}
 
 pass("This is not todo");
+ok( $is_todo, 'TB->todo' );
 
 
 TODO: {