summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorChris 'BinGOs' Williams <chris@bingosnet.co.uk>2010-08-15 22:12:54 +0100
committerChris 'BinGOs' Williams <chris@bingosnet.co.uk>2010-08-15 22:12:54 +0100
commitea940d6b289bfcbfc504fb6b6f53d4e66183a29f (patch)
treee0587258b2fd9b355d2b4e4f3c63eac4c2628b89
parenta98d1b3158aa38a1347ccb2456466b06986acca6 (diff)
downloadperl-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.t10
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';