6 BEGIN { delete $ENV{PERL_TEST_LEANER_USES_TEST_MORE} }
8 use Test::Leaner tests => 4 + 1 + 2 + 1;
11 ok !!1, 'ok() test with a description';
12 ok 0.001, 'a float is fine too';
13 ok +{}, 'a hash ref is fine too';
16 ok @array, 'ok() forces scalar context';
19 ok $ret, 'ok(true) returns true';
22 package Test::Leaner::TestOverload::AlwaysTrue;
29 sub new { bless { }, shift }
32 my $z = Test::Leaner::TestOverload::AlwaysTrue->new;
34 ok $z, 'ok($overloaded_true)';