#!./perl
chdir 't' if -d 't';
print "1..0 # Skip: EBCDIC\n";
exit 0;
}
print "1..0 # Skip: No Encode\n";
exit 0;
}
}
# $PerlIO::encoding = 0; # WARN_ON_ERR|PERLQQ;
my $file = "fallback$$.txt";
{
ok(open(my $fh,">encoding(iso-8859-1)",$file),"opened iso-8859-1 file"); }
is($line,"\\x{20ac}0.02\n","perlqq escapes");
ok(open(my $fh,">encoding(iso-8859-1)",$file),"opened iso-8859-1 file");
is($line,"€0.02\n","HTML escapes");
{
}
is($line,"\\xA30.02\n","Escaped non-mapped char");
is($line,"\x{FFFD}0.02\n","Unicode replacement char");
}