generic-library/msgpack
1
0
Fork 0
mirror of https://github.com/msgpack/msgpack-c.git synced 2025-10-14 23:07:58 +02:00
Code Issues Projects Releases Wiki Activity

Merge branch 'master' of git@github.com:msgpack/msgpack

Browse Source
This commit is contained in:
tokuhirom
2010-05-03 01:04:50 +09:00
parent 70d2c47367 c77eac325e
commit 2a222737f8
4 changed files with 223 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
perl/t/06_stream_unpack2.t Normal file
View File

@@ -0,0 +1,26 @@
use strict;
use warnings;
use Data::MessagePack;
use Test::More;
my $input = [(undef)x16];
my $packed = Data::MessagePack->pack($input);
is_deeply(Data::MessagePack->unpack($packed), $input);
{
my $up = Data::MessagePack::Unpacker->new();
$up->execute($packed, 0);
ok $up->is_finished;
is_deeply $up->data, $input;
}
{
my $up = Data::MessagePack::Unpacker->new();
is $up->execute(substr($packed, 0, 3), 0), 3;
$up->execute($packed, 3);
ok $up->is_finished;
is_deeply $up->data, $input;
}
done_testing;