Stowage/msgpack-python
2
0
Fork 0
mirror of https://github.com/msgpack/msgpack-python.git synced 2026-02-07 02:09:59 +00:00
Code Issues Projects Releases Packages 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';