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

perl: tests

Browse Source
This commit is contained in:
Fuji, Goro
2010-10-28 17:05:41 +09:00
parent fedc37d079
commit ea36ef3107
1 changed files with 2 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
perl/t/16_unpacker_for_larges.t
View File

@@ -2,16 +2,14 @@ use strict;
use Test::More;
use Data::MessagePack;
foreach my $data("abc") {
foreach my $data("abc", [42]) {
my $packed = Data::MessagePack->pack($data);
my $unpacker = Data::MessagePack::Unpacker->new;
note "buff: ", join " ", map { unpack 'H2', $_ } split //, $packed;
my $offset = 0;
foreach my $byte(split //, $packed) {
note "offset: $offset";
$offset += $unpacker->execute($byte);
$unpacker->execute($byte);
}
ok $unpacker->is_finished, 'finished';