6 use Test::Leaner tests => 4 + 1 + 2 + 1;
9 ok !!1, 'ok() test with a description';
10 ok 0.001, 'a float is fine too';
11 ok +{}, 'a hash ref is fine too';
14 ok @array, 'ok() forces scalar context';
17 ok $ret, 'ok(true) returns true';
20 package Test::Leaner::TestOverload::AlwaysFalse;
22 use overload 'bool' => sub { 1 };
24 sub new { bless { }, shift }
27 my $z = Test::Leaner::TestOverload::AlwaysFalse->new;
29 ok $z, 'ok($overloaded_true)';