diff options
author | Chris 'BinGOs' Williams <chris@bingosnet.co.uk> | 2010-08-15 22:12:54 +0100 |
---|---|---|
committer | Chris 'BinGOs' Williams <chris@bingosnet.co.uk> | 2010-08-15 22:12:54 +0100 |
commit | ea940d6b289bfcbfc504fb6b6f53d4e66183a29f (patch) | |
tree | e0587258b2fd9b355d2b4e4f3c63eac4c2628b89 | |
parent | a98d1b3158aa38a1347ccb2456466b06986acca6 (diff) | |
download | perl-ea940d6b289bfcbfc504fb6b6f53d4e66183a29f.tar.gz |
Fix the overload tests marked as TODO in 22afb09b13a6dc17f20388991422fdbe6166e3ed
As is() doesn't stringify its arguments anymore we have to.
-rw-r--r-- | lib/overload.t | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/lib/overload.t b/lib/overload.t index d63ff4d354..da580ca4fe 100644 --- a/lib/overload.t +++ b/lib/overload.t @@ -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'; |