Test that ok() really honors 'bool' overloading

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

diff --git a/t/21-ok-failing.t b/t/21-ok-failing.t
index c54fde80e52ef17168f74d4abe1b0cf50f241de3..36ab4201f488fe15d6ba189927f5845295782b5d 100644 (file)
--- a/t/21-ok-failing.t
+++ b/t/21-ok-failing.t
@@ -54,7 +54,10 @@ reset_buffer {
 {
  package Test::Leaner::TestOverload::AlwaysFalse;
 
- use overload 'bool' => sub { !1 };
+ use overload (
+  'bool' => sub { !1 },
+  '""'   => sub { 'true' },
+ );
 
  sub new { bless { }, shift }
 }