X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FTest-Leaner.git;a=blobdiff_plain;f=t%2F20-ok.t;h=4aeba2b5121d7ff5cf5535c696ea1640eaaf9179;hp=19e989a0a2ecaf57d4d7b4b4265cd43d35a0d83c;hb=6112420fe6b1f9ae44eebaf445d0f076a953970b;hpb=bc94fb7770772cf212e7d3d4f6ef8a2cd69a290d

diff --git a/t/20-ok.t b/t/20-ok.t
index 19e989a..4aeba2b 100644
--- a/t/20-ok.t
+++ b/t/20-ok.t
@@ -19,13 +19,16 @@ my $ret = ok 1;
 ok $ret, 'ok(true) returns true';
 
 {
- package Test::Leaner::TestOverload::AlwaysFalse;
+ package Test::Leaner::TestOverload::AlwaysTrue;
 
- use overload 'bool' => sub { 1 };
+ use overload (
+  'bool' => sub { 1 },
+  '""'   => sub { '' },
+ );
 
  sub new { bless { }, shift }
 }
 
-my $z = Test::Leaner::TestOverload::AlwaysFalse->new;
+my $z = Test::Leaner::TestOverload::AlwaysTrue->new;
 
 ok $z, 'ok($overloaded_true)';