Blame t/rt65541.t

Packit d0f5c2
BEGIN {
Packit d0f5c2
    if ($ENV{'PERL_CORE'}) {
Packit d0f5c2
        chdir 't';
Packit d0f5c2
        unshift @INC, '../lib';
Packit d0f5c2
    }
Packit d0f5c2
    require Config; import Config;
Packit d0f5c2
    if ($Config{'extensions'} !~ /\bEncode\b/) {
Packit d0f5c2
      print "1..0 # Skip: Encode was not built\n";
Packit d0f5c2
      exit 0;
Packit d0f5c2
    }
Packit d0f5c2
    if (ord("A") == 193) {
Packit d0f5c2
      print "1..0 # Skip: EBCDIC\n";
Packit d0f5c2
      exit 0;
Packit d0f5c2
    }
Packit d0f5c2
    $| = 1;
Packit d0f5c2
}
Packit d0f5c2
Packit d0f5c2
use strict;
Packit d0f5c2
use warnings;
Packit d0f5c2
Packit d0f5c2
use Encode;
Packit d0f5c2
use PerlIO::encoding;
Packit d0f5c2
$PerlIO::encoding::fallback &= ~Encode::WARN_ON_ERR;
Packit d0f5c2
Packit d0f5c2
use Test::More tests => 3;
Packit d0f5c2
Packit d0f5c2
ok open my $fh, ">:encoding(cp1250)", do{\(my $str)};
Packit d0f5c2
ok print $fh ("a" x 1023) . "\x{0378}";
Packit d0f5c2
ok close $fh;