generic-library/msgpack
1
0
Fork 0
mirror of https://github.com/msgpack/msgpack-c.git synced 2025-10-27 19:10:21 +01:00
Code Issues Projects Releases Wiki Activity

perl: fixed stream deserializer in pp.

Browse Source
This commit is contained in:
tokuhirom
2010-09-18 09:44:32 +09:00
parent 953aa95c64
commit 2c9966a0a3
5 changed files with 57 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
perl/t/10_splitted_bytes.t
View File

@@ -27,12 +27,14 @@ foreach my $size(1 .. 16) {
open my $stream, '<:bytes :scalar', \$packed;
binmode $stream;
my $buff;
my $done = 0;
while( read($stream, $buff, $size) ) {
#note "buff: ", join " ", map { unpack 'H2', $_ } split //, $buff;
$up->execute($buff);
$done = $up->execute($buff);
}
ok $up->is_finished, 'is_finished';
is $done, length($packed);
ok $up->is_finished, "is_finished: $size";
my $data = $up->data;
is_deeply $data, $input;
}