diff options
author | Tony Cook <tony@develop-help.com> | 2013-11-18 15:16:31 +1100 |
---|---|---|
committer | Tony Cook <tony@develop-help.com> | 2013-11-18 15:16:31 +1100 |
commit | cc54be842f98c857dd862cc0172a4cc56973c027 (patch) | |
tree | 599e801bfe7a94e4741b82f1701faf57a0e62bb1 | |
parent | ca53e5d538c69672817c510e43c842c5a2bd2557 (diff) | |
download | perl-cc54be842f98c857dd862cc0172a4cc56973c027.tar.gz |
TODO test for 120535
-rw-r--r-- | ext/B/t/b.t | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/ext/B/t/b.t b/ext/B/t/b.t index cbf9e1f862..e52e24f991 100644 --- a/ext/B/t/b.t +++ b/ext/B/t/b.t @@ -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(); |