The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
AUDREYT / Perl6-Pugs-6.2.13 / ext / Test / t / 2-force_todo.t 
use v6-alpha;
use Test;

plan 11;

force_todo(1, 3, 5, 7 .. 9, 11);

flunk("This will fail, but will be forced-TODO by force_todo()"); 
pass("This will pass normally");
flunk("This will fail, but will be forced-TODO by force_todo()");
pass("This will pass normally");
flunk("This will TODO fail, and will be forced-TODO by force_todo()", :todo(1));
pass("This will pass normally");
flunk("This will fail, and will be forced-TODO by force_todo()");
flunk("This will fail, and will be forced-TODO by force_todo()");
flunk("This will fail, and will be forced-TODO by force_todo()");
pass("This will pass normally");
flunk("This will fail, and will be forced-TODO by force_todo()");