languages/perl6/t/02-test-pm/5-todo.t

   1 use v6;
   2
   3 use Test;
   4
   5 plan 9;
   6
   7 ok !$Test::todo_next_test, '$Test::todo_next_test set to False intially';
   8
   9 if ($?COMPILER and $?COMPILER eq 'Pugs') {
  10     todo :pugs;  # never unTODO this.
  11     my $saved_val = $Test::todo_next_test;
  12     ok 0, "this test should be TODO'd";
  13     ok $saved_val, 'todo() sets $Test::todo_next_test to True';
  14     ok !$Test::todo_next_test, 'todo() only affects the next one test';
  15
  16     todo :pugs('9999' ~ $?VERSION);  # never unTODO this.
  17     $saved_val = $Test::todo_next_test;
  18     ok 0, "this test should be TODO'd";
  19     ok $saved_val, 'todo() sets $Test::todo_next_test to True';
  20     ok !$Test::todo_next_test, 'todo() only affects the next one test';
  21
  22     todo :pugs('-10.' ~ $?VERSION);  # never unTODO this.
  23     $saved_val = $Test::todo_next_test;
  24     ok 1, "this test should not be TODO'd";
  25     #warn ">>> $saved_val\n";
  26     ok !$saved_val, "todo() didn't set \$Test::todo_next_test to True";
  27 } else {
  28     skip 9, 'no general tests';
  29 }