X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fglobs.t;h=0fecd46b3c47a7d2f09636885b625b4dcc42bb3c;hb=81f1c0187fa7bb773d2f2c2e30bc57de03bad30a;hp=6fdeb5f9d3ddf9af305674097f84d6747c8aaabe;hpb=ae12fecdfcfba35764fead55ce5ab99220849421;p=p5sagit%2FDevel-Size.git diff --git a/t/globs.t b/t/globs.t index 6fdeb5f..0fecd46 100644 --- a/t/globs.t +++ b/t/globs.t @@ -61,8 +61,6 @@ $SIG{__WARN__} = sub { my $copy_gv_size = total_size($copy); # GV copies point back to the real GV through GvEGV. They share the same GP # and GvFILE - local $TODO = 'EGV is double counted. GV - GP == ' - . ($incremental_gv_size - $gp_size); is($copy_gv_size, $real_gv_size + $incremental_gv_size - $gp_size, 'GV copies point back to the real GV'); } @@ -108,7 +106,6 @@ sub gv_grew { unless $Config{usemultiplicity}; is($io_now_size, $io_was_size, "IO doesn't grow as GV has SCALAR"); is($gv_now_size, $gv_was_size, 'GV size unchanged as GV has SCALAR'); - local $TODO = 'total_size double counts GP entries'; is($gv_now_total_size, $gv_was_total_size, 'GV total size unchanged as GV has SCALAR'); } elsif ($type eq 'CODE' || $type eq 'FORMAT') { @@ -130,7 +127,6 @@ sub gv_grew { "IO total_size grew by expected amount for $type"); is($gv_now_size, $gv_was_size + $new_thing_size, "GV size grew by expected amount for $type"); - local $TODO = 'total_size double counts GP entries'; is($gv_now_total_size, $gv_was_total_size + $new_thing_size, "GV total_size grew by expected amount for $type"); }