use Test::More;
-plan skip_all => 'perl 5.8 required to test fail()' unless $] >= 5.008;
+BEGIN { delete $ENV{PERL_TEST_LEANER_USES_TEST_MORE} }
-my $buf = '';
-open my $memory_stream, '>', \$buf
- or plan skip_all => 'could not create the in-memory file';
+use Test::Leaner ();
+
+use lib 't/lib';
+use Test::Leaner::TestHelper;
-plan tests => 5;
+my $buf = '';
+capture_to_buffer $buf or plan skip_all => 'perl 5.8 required to test fail()';
-require Test::Leaner;
-{
- local $@;
- eval { Test::Leaner::tap_stream($memory_stream) };
- is $@, '', 'tap_stream($fh) does not croak';
-}
+plan tests => 4;
-{
+reset_buffer {
local $@;
- $buf = '';
- seek $memory_stream, 0, 0;
eval { Test::Leaner::fail() };
is $@, '', 'fail() does not croak';
is $buf, "not ok 1\n", 'fail() produces the correct TAP code';
-}
+};
-{
+reset_buffer {
local $@;
- $buf = '';
- seek $memory_stream, 0, 0;
eval { Test::Leaner::fail('this is a comment') };
is $@, '', 'fail("comment") does not croak';
is $buf, "not ok 2 - this is a comment\n",
'fail("comment") produces the correct TAP code';
-}
+};