1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
|
BEGIN {
if ($ENV{'PERL_CORE'}) {
chdir 't';
unshift @INC, '../lib';
}
require Config; Config->import();
if ($Config{'extensions'} !~ /\bEncode\b/) {
print "1..0 # Skip: Encode was not built\n";
exit 0;
}
if (ord("A") == 193) {
print "1..0 # Skip: EBCDIC\n";
exit 0;
}
if ( $] < 5.009 ) {
print "1..0 # Skip: Perl <= 5.9 or later required\n";
exit 0;
}
$| = 1;
}
use strict;
use warnings;
use Encode;
use PerlIO::encoding;
$PerlIO::encoding::fallback &= ~(Encode::WARN_ON_ERR|Encode::PERLQQ);
use Test::More tests => 9;
binmode Test::More->builder->failure_output, ":utf8";
binmode Test::More->builder->todo_output, ":utf8";
is(decode("UTF-8", "\xfd\xfe"), "\x{fffd}" x 2);
is(decode("UTF-8", "\xfd\xfe\xff"), "\x{fffd}" x 3);
is(decode("UTF-8", "\xfd\xfe\xff\xe0"), "\x{fffd}" x 4);
is(decode("UTF-8", "\xfd\xfe\xff\xe0\xe1"), "\x{fffd}" x 5);
is(decode("UTF-8", "\xc1\x9f"), "\x{fffd}");
is(decode("UTF-8", "\xFF\x80\x90\x80\x80\x80\x80\x80\x80\x80\x80\x80\x80"), "\x{fffd}");
is(decode("UTF-8", "\xF0\x80\x80\x80"), "\x{fffd}");
SKIP: {
# infinite loop due to bug: https://rt.perl.org/Public/Bug/Display.html?id=41442
skip "Perl Version ($]) is older than v5.8.9", 2 if $] < 5.008009;
my $str = ("x" x 1023) . "\xfd\xfe\xffx";
open my $fh, '<:encoding(UTF-8)', \$str;
my $str2 = <$fh>;
close $fh;
is($str2, ("x" x 1023) . ("\x{fffd}" x 3) . "x");
TODO: {
local $TODO = "bug in perlio" if $] < 5.027009;
my $str = ("x" x 1023) . "\xfd\xfe\xff";
open my $fh, '<:encoding(UTF-8)', \$str;
my $str2 = <$fh>;
close $fh;
is($str2, ("x" x 1023) . ("\x{fffd}" x 3));
}
}
|
