perl: tests

This commit is contained in:
Fuji, Goro
2010-10-13 10:43:56 +09:00
parent 3761aacb1d
commit c506cd97e0
2 changed files with 3 additions and 0 deletions

View File

@@ -55,6 +55,8 @@ my @dat = (
[0, -128, -1, 0, -32768, -1, 0, -2147483648, -1], '99 00 d0 80 ff 00 d1 80 00 ff 00 d2 80 00 00 00 ff',
2147483648, 'ce 80 00 00 00',
-2147483648, 'd2 80 00 00 00',
'a' x 0x0100, 'da 01 00' . (' 61' x 0x0100),
[(undef) x 0x0100], 'dc 01 00' . (' c0' x 0x0100),
);
plan tests => 1*(scalar(@dat)/2);