diff options
Diffstat (limited to 't/op/utfhash.t')
| -rw-r--r-- | t/op/utfhash.t | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/t/op/utfhash.t b/t/op/utfhash.t index 32a182635a..a9af502fbf 100644 --- a/t/op/utfhash.t +++ b/t/op/utfhash.t @@ -5,7 +5,7 @@ BEGIN { @INC = '../lib'; require './test.pl'; - plan(tests => 97); + plan(tests => 99); } use strict; @@ -196,6 +196,12 @@ __END__ is($hash{тест}, $hash{'тест'}); is($hash{тест}, 123); is($hash{'тест'}, 123); + + # See if plain ASCII strings quoted with '=>' erroneously get utf8 flag [perl #68812] + my %foo = (a => 'b', 'c' => 'd'); + for my $key (keys %foo) { + ok !utf8::is_utf8($key), "'$key' shouldn't have utf8 flag"; + } } __END__ { @@ -209,4 +215,10 @@ __END__ is($hash{}, $hash{''}); is($hash{}, 123); is($hash{''}, 123); + + # See if plain ASCII strings quoted with '=>' erroneously get utf8 flag [perl #68812] + my %foo = (a => 'b', 'c' => 'd'); + for my $key (keys %foo) { + ok !utf8::is_utf8($key), "'$key' shouldn't have utf8 flag"; + } } |