| Subject: | TODO tests do not work as documented |
| Date: | Fri, 24 Jun 2011 19:35:59 -0700 |
| To: | bug-Test-Group [...] rt.cpan.org |
| From: | David Storrs <david.storrs [...] gmail.com> |
I copied this code pretty much directly from the Synopsis in 'foo.pl':
------------------
#!/env perl
use Test::Group;
use Test::More;
test "a test with TODO in the name is marked TODO" => sub {
pass("this part is done");
fail("but I'm not finished with this one yet");
};
{
local $TODO = "Test::More's good old method also works";
test "this test is not finished yet" => sub {
pass;
fail;
};
};
done_testing();
------------------
dstorrs@loki:~/business/channelmeter/code/ChannelMeter$ perl foo.t
# Failed test 'but I'm not finished with this one yet'
# in foo.t at line 8.
not ok 1 - a test with TODO in the name is marked TODO
# Failed test 'a test with TODO in the name is marked TODO'
# at foo.t line 9.
# Failed test in foo.t at line 15.
not ok 2 - this test is not finished yet # TODO Test::More's good old
method also works
# Failed (TODO) test 'this test is not finished yet'
# at foo.t line 16.
1..2
# Looks like you failed 1 test of 2.
------------------
If I remove the new-style test ( 'but I'm not finished with this one
yet' ), the test is (correctly) marked as failing, and the .t file is
(correctly) marked as passing.
This is perl v5.10.1 OSX 10.5.8
Test::Group::VERSION => 0.18