t/op/warn.t: Generalize for non-ASCII platforms

diff --git a/t/op/warn.t b/t/op/warn.t
index 4d679c2..42b88f8 100644 (file)
--- a/t/op/warn.t
+++ b/t/op/warn.t
@@ -3,7 +3,7 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    require './test.pl';
+    require './test.pl'; require './charset_tools.pl';
     set_up_inc('../lib');
 }
 
@@ -121,22 +121,25 @@ fresh_perl_like(
 
 SKIP: {
     skip_if_miniperl('miniperl ignores -C', 1);
+   $ee = uni_to_native("\xee");
+   $bytes = byte_utf8a_to_utf8n("\xc3\xae");
 fresh_perl_like(
- '
-   $a = "\xee\n";
-   print STDERR $a; warn $a;
-   utf8::upgrade($a);
-   print STDERR $a; warn $a;
- ',
-  qr/^\xc3\xae(?:\r?\n\xc3\xae){3}/,
+ "
+   \$a = \"$ee\n\";
+   print STDERR \$a; warn \$a;
+   utf8::upgrade(\$a);
+   print STDERR \$a; warn \$a;
+ ",
+  qr/^$bytes(?:\r?\n$bytes){3}/,
   { switches => ['-CE'] },
  'warn respects :utf8 layer'
 );
 }
 
+$bytes = byte_utf8a_to_utf8n("\xc4\xac");
 fresh_perl_like(
  'warn chr 300',
-  qr/^Wide character in warn .*\n\xc4\xac at /,
+  qr/^Wide character in warn .*\n$bytes at /,
   { switches => [ "-C0" ] },
  'Wide character in warn (not print)'
 );