This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
t/lib/open.t: Generalize for EBCDIC platforms
[perl5.git] / lib / open.t
index d24c83d..0e676eb 100644 (file)
@@ -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",
     ;
 }