bug.txt

bug.txt

alh@hyrule:~/pobox/git$ cat pass.t 
use Test2::API qw(run_subtest);
use Test::More;

run_subtest("foo", sub {
  local $TODO = "what";
  ok(1, "test");
});

done_testing;
alh@hyrule:~/pobox/git$ cat fail.t 
use Test2::API qw(run_subtest);
use Test::More;

run_subtest("foo", sub {
  local $TODO = "what";
  ok(0, "test");
});

done_testing;
alh@hyrule:~/pobox/git$ perl pass.t 
# foo
    ok 1 - test # 
    1..1
ok 1 - foo
1..1
alh@hyrule:~/pobox/git$ perl fail.t 
# foo
    not ok 1 - test # TODO
    #   Failed (TODO) test 'test'
    #   at fail.t line 6.
    1..1
ok 1 - foo
1..1