languages/perl6/t/02-test-pm/2-force_todo.t

   1 use v6;
   2 use Test;
   3
   4 plan 11;
   5
   6 force_todo(1, 3, 5, 7 .. 9, 11);
   7
   8 flunk("This will fail, but will be forced-TODO by force_todo()");
   9 pass("This will pass normally");
  10 flunk("This will fail, but will be forced-TODO by force_todo()");
  11 pass("This will pass normally");
  12 flunk("This will TODO fail, and will be forced-TODO by force_todo()", :todo(1));
  13 pass("This will pass normally");
  14 flunk("This will fail, and will be forced-TODO by force_todo()");
  15 flunk("This will fail, and will be forced-TODO by force_todo()");
  16 flunk("This will fail, and will be forced-TODO by force_todo()");
  17 pass("This will pass normally");
  18 flunk("This will fail, and will be forced-TODO by force_todo()");