use strict;
use Test::More tests => 10;
BEGIN { use_ok('PerlIO::unicodeeol'); }
binmode STDOUT, "utf8";
# Test with utf-8
{
binmode DATA, ':raw:utf8:unicodeeol';
is <DATA>, "Line 1\n", "Line 1 - matched";
is <DATA>, "Line 2\n", "Line 2 - matched";
is <DATA>, "Line 3\n", "Line 3 - matched";
is <DATA>, "Line 4\n", "Line 4 - matched";
is <DATA>, "Line 5\x{86}\n", "Line 5 - matched";
is <DATA>, "Line 6\n", "Line 6 - matched";
is <DATA>, "Line 7\n", "Line 7 - matched";
{
my $badstring = <DATA>;
utf8::encode($badstring);
is $badstring, "Line 8\xe2\x81\n", "Line 8 - matched";
}
is <DATA>, "Line 9\x{202a}\n", "Line 9 - matched";
close DATA;
}
__DATA__
Line 1
Line 2
Line 3
Line 4Â
Line 5Â
Line 6â¨Line 7â©Line 8â
Line 9âª