This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
t/lib/feature/implicit: Generalize for EBCDIC platforms
authorKarl Williamson <public@khwilliamson.com>
Wed, 26 Jun 2013 21:25:37 +0000 (15:25 -0600)
committerKarl Williamson <khw@cpan.org>
Fri, 6 Mar 2015 04:48:27 +0000 (21:48 -0700)
t/lib/feature/implicit

index 99ab011..79f1bf8 100644 (file)
@@ -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