Several TODO tests that now pass.

3 files changed, 7 insertions, 14 deletions

diff --git a/t/op/ref.t b/t/op/ref.t
index c607a60504..74860e0bb9 100644
--- a/t/op/ref.t
+++ b/t/op/ref.t
@@ -479,7 +479,7 @@ TODO: {
           ), qr/^(ok)+$/, 'STDOUT destructor');
 }
 
-TODO: {
+{
     no strict 'refs';
     $name8 = chr 163;
     $name_utf8 = $name8 . chr 256;
@@ -489,11 +489,10 @@ TODO: {
     is ($$name_utf8, undef, 'Nothing before we start');
     $$name8 = "Pound";
     is ($$name8, "Pound", 'Accessing via 8 bit symref works');
-    local $TODO = "UTF8 mangled in symrefs";
     is ($$name_utf8, "Pound", 'Accessing via UTF8 symref works');
 }
 
-TODO: {
+{
     no strict 'refs';
     $name_utf8 = $name = chr 9787;
     utf8::encode $name_utf8;
@@ -505,7 +504,6 @@ TODO: {
     is ($$name_utf8, undef, 'Nothing before we start');
     $$name = "Face";
     is ($$name, "Face", 'Accessing via Unicode symref works');
-    local $TODO = "UTF8 mangled in symrefs";
     is ($$name_utf8, undef,
 	'Accessing via the UTF8 byte sequence gives nothing');
 }
diff --git a/t/uni/gv.t b/t/uni/gv.t
index ec4f62e6b3..df94efeabf 100644
--- a/t/uni/gv.t
+++ b/t/uni/gv.t
@@ -397,8 +397,7 @@ sub Ṩp맅싵Ş () {
 }
 
 # Check that assignment to an existing subroutine works
-TODO: {
-  local $TODO = "Warnings not yet UTF-8 clean";
+{
   my $w = '';
   local $SIG{__WARN__} = sub { $w = $_[0] };
   *{"Ṩp맅싵Ş"} = \&{"оઓnḲ"};
@@ -633,8 +632,7 @@ EOF
 }
 
 # [perl #77362] various bugs related to globs as PVLVs
-TODO: {
- local $TODO = "Glob stringify not fully clean yet.";
+{
  no warnings qw 'once void';
  my %h; # We pass a key of this hash to the subroutine to get a PVLV.
  sub { for(shift) {
@@ -645,8 +643,7 @@ TODO: {
   # Bad symbol for array
   ok eval{ @$_; 1 }, 'PVLV glob slots can be autovivified' or diag $@;
 
-    TODO: {
-        local $TODO = "Tie not yet clean";
+    {
         # This should call TIEHANDLE, not TIESCALAR
         *thèxt::TIEHANDLE = sub{};
         ok eval{ tie *$_, 'thèxt'; 1 }, 'PVLV globs can be tied as handles'
diff --git a/t/uni/stash.t b/t/uni/stash.t
index 0c5fd995c9..c54f0cc5ca 100644
--- a/t/uni/stash.t
+++ b/t/uni/stash.t
@@ -249,8 +249,7 @@ plan( tests => 58 );
     }
 
     # Stashes that are effectively renamed
-    TODO: {
-        local our $TODO = "Glob stringify";
+    {
         package rìle;
     
         use Config;
@@ -292,8 +291,7 @@ plan( tests => 58 );
     }
     
     # Setting the name during undef %stash:: should have no effect.
-    TODO: {
-        local our $TODO = "Glob stringify";
+    {
         my $glob = \*Phòò::glòb;
         sub ò::DESTROY { eval '++$Phòò::bòr' }
         no strict 'refs';