]> git.vpit.fr Git - perl/modules/Test-Leaner.git/blobdiff - t/21-ok-failing.t
Test that ok() really honors 'bool' overloading
[perl/modules/Test-Leaner.git] / t / 21-ok-failing.t
index c54fde80e52ef17168f74d4abe1b0cf50f241de3..36ab4201f488fe15d6ba189927f5845295782b5d 100644 (file)
@@ -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 }
 }