lib/Test/Simple/t/todo.t

   1 BEGIN {
   2     require Test::Harness;
   3     require Test::More;
   4
   5     if( $Test::Harness::VERSION < 1.23 ) {
   6         Test::More->import(skip_all => 'Need the new Test::Harness');
   7     }
   8     else {
   9         Test::More->import(tests => 5);
  10     }
  11 }
  12
  13 $Why = 'Just testing the todo interface.';
  14
  15 TODO: {
  16     local $TODO = $Why;
  17
  18     fail("Expected failure");
  19     fail("Another expected failure");
  20 }
  21
  22
  23 pass("This is not todo");
  24
  25
  26 TODO: {
  27     local $TODO = $Why;
  28
  29     fail("Yet another failure");
  30 }
  31
  32 pass("This is still not todo");