Test that ok() really honors 'bool' overloading

[perl/modules/Test-Leaner.git] / t / 20-ok.t

diff --git a/t/20-ok.t b/t/20-ok.t
index 19e989a0a2ecaf57d4d7b4b4265cd43d35a0d83c..4aeba2b5121d7ff5cf5535c696ea1640eaaf9179 100644 (file)
--- 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)';