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 pass()';
22 eval { Test::Leaner::pass() };
23 is $@, '', 'pass() does not croak';
24 is $buf, "ok 1\n", 'pass() produces the correct TAP code';
29 eval { Test::Leaner::pass('this is a comment') };
30 is $@, '', 'pass("comment") does not croak';
31 is $buf, "ok 2 - this is a comment\n",
32 'pass("comment") produces the correct TAP code';