ヤミRoot VoidGate

Viewing: truncated_utf8.t

BEGIN {
    if ($ENV{'PERL_CORE'}) {
        chdir 't';
        unshift @INC, '../lib';
    }
    require Config; import Config;
    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;
    }
    $| = 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));
    }
}

User / IP	: 216.73.216.33
Host / Server	: 146.88.233.70 / dev.loger.cm
System	: Linux hybrid1120.fr.ns.planethoster.net 3.10.0-957.21.2.el7.x86_64 #1 SMP Wed Jun 5 14:26:44 UTC 2019 x86_64