t/lib/open.t: Generalize for EBCDIC platforms

This involved changing a \xff to \xfe because it is expecting it to be a
character whose representation is different when encoded in UTF-8, and
on some EBCDIC platforms, \xff is UTF-8 invariant.  I suppose there
could be a code page where \xfe is invariant, so this .t would have to
be made more general if that ever comes to be.

diff --git a/lib/open.t b/lib/open.t
index d24c83d..0e676eb 100644 (file)
--- a/lib/open.t
+++ b/lib/open.t
@@ -5,6 +5,7 @@ BEGIN {
        @INC = '../lib';
        require Config; import Config;
        require './test.pl';
+       require './charset_tools.pl';
 }
 
 plan 23;
@@ -197,13 +198,17 @@ SKIP: {
             'use open q\:encoding(UTF-8)\;',
             'if(($_ = <STDIN>) eq qq-\x{100}\n-) { print qq-stdin ok\n- }',
             'else { print qq-got -, join(q q q, map ord, split//), "\n" }',
-            'print STDOUT qq-\x{ff}\n-;',
-            'print STDERR qq-\x{ff}\n-;',
+            'print STDOUT qq-\x{fe}\n-;',
+            'print STDERR qq-\x{fe}\n-;',
          ],
-         stdin => "\xc4\x80\n",
+         stdin => byte_utf8a_to_utf8n("\xc4\x80") . "\n",
          stderr => 1,
        ),
-       "stdin ok\n\xc3\xbf\n\xc3\xbf\n",
+       "stdin ok\n"
+        . byte_utf8a_to_utf8n("\xc3\xbe")
+        . "\n"
+        . byte_utf8a_to_utf8n("\xc3\xbe")
+        . "\n",
        "use open without :std does not affect standard handles",
     ;
 }