8 BEGIN { delete $ENV{PERL_TEST_LEANER_USES_TEST_MORE} }
13 use Test::Leaner::TestHelper;
16 capture_to_buffer $buf or plan skip_all => 'perl 5.8 required to test fail()';
23 eval { Test::Leaner::fail() };
24 is $@, '', 'fail() does not croak';
25 is $buf, "not ok 1\n", 'fail() produces the correct TAP code';
30 eval { Test::Leaner::fail('this is a comment') };
31 is $@, '', 'fail("comment") does not croak';
32 is $buf, "not ok 2 - this is a comment\n",
33 'fail("comment") produces the correct TAP code';