11 use Test::Leaner::TestHelper;
14 capture_to_buffer $buf or plan skip_all => 'perl 5.8 required to test fail()';
21 eval { Test::Leaner::fail() };
22 is $@, '', 'fail() does not croak';
23 is $buf, "not ok 1\n", 'fail() produces the correct TAP code';
28 eval { Test::Leaner::fail('this is a comment') };
29 is $@, '', 'fail("comment") does not croak';
30 is $buf, "not ok 2 - this is a comment\n",
31 'fail("comment") produces the correct TAP code';