This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
TODO test for 120535
authorTony Cook <tony@develop-help.com>
Mon, 18 Nov 2013 04:16:31 +0000 (15:16 +1100)
committerTony Cook <tony@develop-help.com>
Mon, 18 Nov 2013 04:16:31 +0000 (15:16 +1100)
ext/B/t/b.t

index cbf9e1f..e52e24f 100644 (file)
@@ -415,4 +415,12 @@ EOS
     }
 }
 
     }
 }
 
+{ # [perl #120535]
+    local $TODO = "B::HV->ARRAY doesn't preserve UTF8 flag";
+    my %h = ( "\x{100}" => 1 );
+    my $b = B::svref_2object(\%h);
+    my ($k, $v) = $b->ARRAY;
+    is($k, "\x{100}", "check utf8 preserved by B::HV::ARRAY");
+}
+
 done_testing();
 done_testing();