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

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)';