X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2FDevel-Size.git;a=blobdiff_plain;f=t%2Fbasic.t;h=b5b08383f690197f94cd714cedf130d132591fa0;hp=55e5278cb33342b7aefc054ad47a17ccfd77e692;hb=8c394e1251fdfe38;hpb=5f04c81daf0e38670b8dac45bd369bc508da50b6 diff --git a/t/basic.t b/t/basic.t index 55e5278..b5b0838 100644 --- a/t/basic.t +++ b/t/basic.t @@ -96,7 +96,7 @@ cmp_ok (total_size(\&LARGE), '>', 8192, { my $a = []; my $b = \$a; - weaken $b; - cmp_ok(total_size($a), '>', total_size([]), - 'making a weakref upgrades the target to PVMG and adds magic'); + # making a weakref upgrades the target to PVMG and adds magic + is(total_size($a), total_size([]), + 'Any intial reference is dereferenced and discarded'); }