Commit | Line | Data |
---|---|---|
e4206093 | 1 | #!./perl -w |
4c5ed6e2 TS |
2 | |
3 | BEGIN { | |
e4206093 | 4 | require './test.pl'; |
273be65c | 5 | skip_all_without_dynamic_extension('Encode'); |
b5b7b9ad NC |
6 | skip_all("EBCDIC") if $::IS_EBCDIC; |
7 | skip_all_without_perlio(); | |
4c5ed6e2 TS |
8 | } |
9 | ||
10 | use strict; | |
61a3fb80 | 11 | plan (tests => 8); |
55673181 | 12 | no warnings 'deprecated'; |
4c5ed6e2 TS |
13 | use encoding 'johab'; |
14 | ||
15 | ok(chr(0x7f) eq "\x7f"); | |
16 | ok(chr(0x80) eq "\x80"); | |
17 | ok(chr(0xff) eq "\xff"); | |
18 | ||
19 | for my $i (127, 128, 255) { | |
20 | ok(chr($i) eq pack('C', $i)); | |
21 | } | |
22 | ||
61a3fb80 JL |
23 | # [perl #83048] |
24 | { | |
25 | my $w; | |
26 | local $SIG{__WARN__} = sub { $w .= $_[0] }; | |
27 | my $chr = chr(-1); | |
28 | is($chr, "\x{fffd}", "invalid values become REPLACEMENT CHARACTER"); | |
29 | like($w, qr/^Invalid negative number \(-1\) in chr at /, "with a warning"); | |
30 | } | |
31 | ||
4c5ed6e2 | 32 | __END__ |