blob: cb9caaa582da3771061b7d1a3b241c819e1c7d85 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
# https://github.com/typester/Data-MessagePack-Stream/issues/3
use strict;
use warnings;
use Test::More;
plan tests => 1;
use Data::MessagePack::Stream;
use Data::MessagePack;
my $orig = [0,0,200,''];
my $packed = Data::MessagePack->new->pack($orig);
my $unpacker = Data::MessagePack::Stream->new;
$unpacker->feed($packed);
if ($unpacker->next) {
is_deeply($unpacker->data, $orig);
}
|