Commit | Line | Data |
4c5ed6e2 |
1 | |
2 | BEGIN { |
3 | if ($ENV{'PERL_CORE'}){ |
4 | chdir 't'; |
5 | @INC = '../lib'; |
6 | } |
7 | require Config; import Config; |
8 | if ($Config{'extensions'} !~ /\bEncode\b/) { |
9 | print "1..0 # Skip: Encode was not built\n"; |
10 | exit 0; |
11 | } |
12 | if (ord("A") == 193) { |
13 | print "1..0 # Skip: EBCDIC\n"; |
14 | exit 0; |
15 | } |
16 | unless (PerlIO::Layer->find('perlio')){ |
17 | print "1..0 # Skip: PerlIO required\n"; |
18 | exit 0; |
19 | } |
20 | if ($ENV{PERL_CORE_MINITEST}) { |
21 | print "1..0 # Skip: no dynamic loading on miniperl, no Encode\n"; |
22 | exit 0; |
23 | } |
24 | $| = 1; |
25 | } |
26 | |
27 | use strict; |
28 | use Test::More tests => 6; |
29 | use Encode; |
30 | |
31 | use encoding 'johab'; |
32 | |
33 | ok(chr(0x7f) eq "\x7f"); |
34 | ok(chr(0x80) eq "\x80"); |
35 | ok(chr(0xff) eq "\xff"); |
36 | |
37 | for my $i (127, 128, 255) { |
38 | ok(chr($i) eq pack('C', $i)); |
39 | } |
40 | |
41 | __END__ |