generic-library/msgpack
1
0
Fork 0
mirror of https://github.com/msgpack/msgpack-c.git synced 2025-04-18 23:41:09 +02:00
Code Issues Projects Releases Wiki Activity

perl: added more test case for streaming deserializer.

Browse Source
This commit is contained in:
tokuhirom 2010-05-02 22:09:18 +09:00
parent e57084f6df
commit 70d2c47367
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
perl/t/03_stream_unpack.t
View File

@ -23,10 +23,21 @@ sub pis ($$) {
my @dat = do 't/data.pl'; my @dat = do 't/data.pl';
plan tests => 1*(scalar(@dat)/2) + 1; plan tests => 1*(scalar(@dat)/2) + 3;
isa_ok $up, 'Data::MessagePack::Unpacker'; isa_ok $up, 'Data::MessagePack::Unpacker';
for (my $i=0; $i<scalar(@dat); ) { for (my $i=0; $i<scalar(@dat); ) {
pis $dat[$i++], $dat[$i++]; pis $dat[$i++], $dat[$i++];
} }
# devided.
{
my $up = Data::MessagePack::Unpacker->new();
$up->execute("\x95", 0); # array marker
for (1..5) {
$up->execute("\xc0", 0); # nil
}
ok $up->is_finished;
is_deeply $up->data, [undef, undef, undef, undef, undef];
}