diff options
Diffstat (limited to 'lib/bytes.t')
| -rw-r--r-- | lib/bytes.t | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/lib/bytes.t b/lib/bytes.t new file mode 100644 index 0000000000..05c748c5ac --- /dev/null +++ b/lib/bytes.t @@ -0,0 +1,28 @@ +BEGIN { + chdir 't' if -d 't'; + @INC = '../lib'; +} + +print "1..6\n"; + +my $a = chr(0x0100); + +print ord($a) == 0x100 ? "ok 1\n" : "not ok 1\n"; +print length($a) == 1 ? "ok 2\n" : "not ok 2\n"; + +{ + use bytes; + my $b = chr(0x0100); + print ord($b) == 0 ? "ok 3\n" : "not ok 3\n"; +} + +my $c = chr(0x0100); + +print ord($c) == 0x100 ? "ok 4\n" : "not ok 4\n"; + +{ + use bytes; + print ord($c) == 0xc4 ? "ok 5\n" : "not ok 5\n"; + print length($c) == 2 ? "ok 6\n" : "not ok 6\n"; +} + |