File: 16_unpacker_for_larges.t

package info (click to toggle)
libdata-messagepack-perl 1.02-3
  • links: PTS, VCS
  • area: main
  • in suites: sid
  • size: 1,060 kB
  • sloc: ansic: 5,697; perl: 1,123; makefile: 10
file content (20 lines) | stat: -rw-r--r-- 473 bytes parent folder | download | duplicates (7)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
use strict;
use Test::More;
use Data::MessagePack;

foreach my $data("abc", [ 'x' x 1024 ], [0xFFFF42]) {
    my $packed = Data::MessagePack->pack($data);

    my $unpacker = Data::MessagePack::Unpacker->new;
    note "buff: ", join " ", map { unpack 'H2', $_ } split //, $packed;

    foreach my $byte(split //, $packed) {
        $unpacker->execute($byte);
    }

    ok $unpacker->is_finished, 'finished';
    is_deeply $unpacker->data, $data, 'data';
}

done_testing;