@INC = '../lib';
require Config; import Config;
require './test.pl';
+ require './charset_tools.pl';
}
plan 23;
'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",
;
}