msgpack/perl/t/10_splitted_bytes.t

#!perl

# This feature is not yet supported, but 0.23 (or former) caused SEGV in this code,
# so we put it here.

use strict;
use warnings;
use Data::MessagePack;
use Test::More;
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,1.0,-1.0,"a","a","a","","","",
    [0],[0],[0],[],[],[],{},{},{},
    {"a" => 97},{"a" => 97},{"a" => 97},[[]],[["a"]]
];

my $packed = Data::MessagePack->pack($input);

foreach my $size(1 .. 16) {
    local $TODO = "Splitted byte streaming is not yet supported (bufer size: $size)";

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

    open my $stream, '<:bytes :scalar', \$packed;
    binmode $stream;
    my $buff;
    while( read($stream, $buff, $size) ) {
        #note "buff: ", join " ", map { unpack 'H2', $_ } split //, $buff;

        $up->execute($buff);
    }
    ok $up->is_finished, 'is_finished';
    my $data = $up->data;
    is_deeply $data, $input;
}

done_testing;