msgpack/perl/t/06_stream_unpack2.t

use strict;
use warnings;
use Data::MessagePack;
use Test::More tests => 64;
use t::Util;

my $input = [
    false,true,null,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,
    127,127,255,65535,4294967295,-32,-32,-128,-32768,
    -2147483648,0.0,-0.0, 3.0,-3.0,"a","a",("a" x 70000),"","","",
    [0],[0],[0],[],[],[],{},{},{},
    {"a" => 97},{"abc" => 97},{"xyz" => 97},[[]], [["foo"], ["bar"]],
    [["foo", true, false, null, 42]],
];

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();
    $packed x= 3;

    my $offset = 0;
    for my $i(1 .. 3) {
        note "block $i (offset: $offset/".length($packed).")";
        note "starting 3 bytes: ", join " ", map { unpack 'H2', $_ }
            split //, substr($packed, $offset, 3);

        $offset = $up->execute($packed, $offset);
        ok $up->is_finished, 'finished';
        my $data = $up->data;
        is scalar(@{$data}), scalar(@{$input}), 'size of @{$data}';
        is_deeply $data, $input, "block $i, offset $offset";
        $up->reset();
    }
}

{
    my $s    = '';
    foreach my $datum(reverse @{$input}) {
        $s .= Data::MessagePack->pack($datum);
    }

    my $up = Data::MessagePack::Unpacker->new();

    my $offset = 0;
    for my $datum(reverse @{$input}) {
        $offset = $up->execute($s, $offset);
        is_deeply $up->data, $datum, "offset $offset/" . length($s);
        $up->reset();
    }
}