diff options
| author | Fuji, Goro <gfuji@cpan.org> | 2010-10-13 10:43:56 +0900 |
|---|---|---|
| committer | Fuji, Goro <gfuji@cpan.org> | 2010-10-13 10:43:56 +0900 |
| commit | c506cd97e0032ec070a81b58a55f5089a4a1b60f (patch) | |
| tree | 9327258e7b979e1dfa927c314ad8a536e2e52299 /perl | |
| parent | 3761aacb1d4dbdaa922e024e5ae709a9037c06f3 (diff) | |
| download | msgpack-python-c506cd97e0032ec070a81b58a55f5089a4a1b60f.tar.gz | |
perl: tests
Diffstat (limited to 'perl')
| -rw-r--r-- | perl/t/01_pack.t | 2 | ||||
| -rw-r--r-- | perl/t/data.pl | 1 |
2 files changed, 3 insertions, 0 deletions
diff --git a/perl/t/01_pack.t b/perl/t/01_pack.t index 50fd663..8c61980 100644 --- a/perl/t/01_pack.t +++ b/perl/t/01_pack.t @@ -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); diff --git a/perl/t/data.pl b/perl/t/data.pl index 300eec1..b7bbaf1 100644 --- a/perl/t/data.pl +++ b/perl/t/data.pl @@ -22,6 +22,7 @@ no warnings; # i need this, i need this. '82 c2 81 c0 c0 c3 81 c0 80', {false,{undef,undef}, true,{undef,{}}}, '96 de 00 00 de 00 01 c0 c2 de 00 02 c0 c2 c3 c2 df 00 00 00 00 df 00 00 00 01 c0 c2 df 00 00 00 02 c0 c2 c3 c2', [{}, {undef,false}, {true,false, undef,false}, {}, {undef,false}, {true,false, undef,false}], + 'dc 01 00' . (' c0' x 0x0100), [(undef) x 0x0100], 'ce 00 ff ff ff' => ''.0xFFFFFF, 'aa 34 32 39 34 39 36 37 32 39 35' => ''.0xFFFFFFFF, 'ab 36 38 37 31 39 34 37 36 37 33 35' => ''.0xFFFFFFFFF, |