Select Code to Download

use strict;
use warnings;
...
is(unpack('c', $up_ch), 0xA0-0x100, 'c, internal format 1');
is(unpack('C', $dn_ch), 0xA0,       'C, internal format 0');
is(unpack('C', $up_ch), 0xA0,       'C, internal format 1');

1..4
ok 1 - c, internal format 0
...
#          got: '194'
#     expected: '160'
# Looks like you failed 2 tests of 4.

1..4
ok 1 - c, internal format 0
ok 2 - c, internal format 1
ok 3 - C, internal format 0
ok 4 - C, internal format 1