This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix the overload tests marked as TODO in 22afb09b13a6dc17f20388991422fdbe6166e3ed
authorChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Sun, 15 Aug 2010 21:12:54 +0000 (22:12 +0100)
committerChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Sun, 15 Aug 2010 21:12:54 +0000 (22:12 +0100)
  As is() doesn't stringify its arguments anymore we have to.

lib/overload.t

index d63ff4d..da580ca 100644 (file)
@@ -1358,9 +1358,7 @@ foreach my $op (qw(<=> == != < <= > >=)) {
     $x = 4 unless !$no && !$yes;       is($x, 4);
 }
 
-TODO: {
-    local $TODO = 'Test-Simple handling of overloads changed with 0.95_01';
-
+{
     use Scalar::Util 'weaken';
 
     package Shklitza;
@@ -1374,11 +1372,11 @@ TODO: {
     $obj = bless do {my $a; \$a}, 'Shklitza';
     $ref = $obj;
 
-    is ($obj, "CLiK KLAK");
-    is ($ref, "CLiK KLAK");
+    is ("$obj", "CLiK KLAK");
+    is ("$ref", "CLiK KLAK");
 
     weaken $ref;
-    is ($ref, "CLiK KLAK");
+    is ("$ref", "CLiK KLAK");
 
     bless $obj, 'Ksshfwoom';