This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
t/uni/gv.t, stringify is clean, remove the TODO
authorBrian Fraser <fraserbn@gmail.com>
Fri, 22 Jul 2011 13:05:11 +0000 (10:05 -0300)
committerFather Chrysostomos <sprout@cpan.org>
Thu, 6 Oct 2011 20:01:15 +0000 (13:01 -0700)
t/uni/gv.t

index f03b7d6..ec4f62e 100644 (file)
@@ -598,8 +598,7 @@ TODO: {
 
 # [perl #1804] *$x assignment when $x is a copy of another glob
 # And [perl #77508] (same thing with list assignment)
 
 # [perl #1804] *$x assignment when $x is a copy of another glob
 # And [perl #77508] (same thing with list assignment)
-TODO: {
-    local $TODO = "Glob/Stash stringify not yet fully clean";
+ {
     no warnings 'once';
     my $x = *_ràndom::glob_that_is_not_used_elsewhere;
     *$x = sub{};
     no warnings 'once';
     my $x = *_ràndom::glob_that_is_not_used_elsewhere;
     *$x = sub{};
@@ -612,7 +611,7 @@ TODO: {
     is(
       "$x", '*_ràndom::glob_that_is_not_used_elsewhere',
       '[perl #77508] *$x list assignment when $x is FAKE',
     is(
       "$x", '*_ràndom::glob_that_is_not_used_elsewhere',
       '[perl #77508] *$x list assignment when $x is FAKE',
-    ) or require Devel::Peek, ($TODO ? () : Devel::Peek::Dump($x));
+    ) or require Devel::Peek, Devel::Peek::Dump($x);
 }
 
 # [perl #76540]
 }
 
 # [perl #76540]