This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
t/op/goto.t: Generalize for non-ASCII platforms
authorKarl Williamson <public@khwilliamson.com>
Sun, 7 Apr 2013 16:45:14 +0000 (10:45 -0600)
committerKarl Williamson <khw@cpan.org>
Fri, 6 Mar 2015 04:48:26 +0000 (21:48 -0700)
t/op/goto.t

index ccee71b..ca48ac0 100644 (file)
@@ -5,7 +5,7 @@
 BEGIN {
     chdir 't' if -d 't';
     @INC = qw(. ../lib);
-    require "./test.pl";
+    require "./test.pl"; require './charset_tools.pl';
 }
 
 use warnings;
@@ -473,7 +473,7 @@ is sub {
     goto &returnarg;
 }->("quick and easy"), "ick and queasy",
   'goto &foo with *_{ARRAY} replaced';
-my @__ = "\xc4\x80";
+my @__ = byte_utf8a_to_utf8n("\xc4\x80");
 sub { local *_ = \@__; goto &utf8::decode }->("no thinking aloud");
 is "@__", chr 256, 'goto &xsub with replaced *_{ARRAY}';