diff options
| author | Karl Williamson <public@khwilliamson.com> | 2013-06-26 15:25:37 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2015-03-05 21:48:27 -0700 |
| commit | b806f728a908c99fe4964c174a7be5f5808efa9c (patch) | |
| tree | 50d14786c8b5751e658eb434c4afc7d56e66b715 /t | |
| parent | c266f7b3af0c491c48c5cf9e914e953734571ce6 (diff) | |
| download | perl-b806f728a908c99fe4964c174a7be5f5808efa9c.tar.gz | |
t/lib/feature/implicit: Generalize for EBCDIC platforms
Diffstat (limited to 't')
| -rw-r--r-- | t/lib/feature/implicit | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/t/lib/feature/implicit b/t/lib/feature/implicit index 99ab01180e..79f1bf8888 100644 --- a/t/lib/feature/implicit +++ b/t/lib/feature/implicit @@ -117,9 +117,11 @@ nok ######## # Implicit unicode_eval feature use v5.15; -print eval "use utf8; q|\xc5\xbf|" eq "\xc5\xbf" ? "ok\n" : "nok\n"; +require '../../t/charset_tools.pl'; +my $long_s = byte_utf8a_to_utf8n("\xc5\xbf"); +print eval "use utf8; q|$long_s|" eq $long_s ? "ok\n" : "nok\n"; use v5.8.8; -print eval "use utf8; q|\xc5\xbf|" eq "\x{17f}" ? "ok\n" : "nok\n"; +print eval "use utf8; q|$long_s|" eq "\x{17f}" ? "ok\n" : "nok\n"; EXPECT ok ok |