4 require Config; import Config;
5 if ($Config{'extensions'} !~ /\bEncode\b/) {
6 print "1..0 # Skip: Encode was not built\n";
10 print "1..0 # Skip: EBCDIC\n";
13 unless (PerlIO::Layer->find('perlio')){
14 print "1..0 # Skip: PerlIO required\n";
17 if ($ENV{PERL_CORE_MINITEST}) {
18 print "1..0 # Skip: no dynamic loading on miniperl, no Encode\n";
30 ok(chr(0x7f) eq "\x7f");
31 ok(chr(0x80) eq "\x80");
32 ok(chr(0xff) eq "\xff");
34 for my $i (127, 128, 255) {
35 ok(chr($i) eq pack('C', $i));