generic-library/msgpack
1
0
Fork 0
mirror of https://github.com/msgpack/msgpack-c.git synced 2025-11-04 04:09:59 +01:00
Code Issues Projects Releases Wiki Activity

perl: tests

Browse Source
This commit is contained in:
Fuji, Goro
2010-10-21 23:35:07 +09:00
parent 7fc34b6369
commit d8aaef4f04
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
perl/t/06_stream_unpack2.t
View File

@@ -1,7 +1,7 @@
use strict; use strict;
use warnings; use warnings;
use Data::MessagePack; use Data::MessagePack;
use Test::More tests => 61; use Test::More tests => 64;
use t::Util; use t::Util;
my $input = [ my $input = [
@@ -36,6 +36,7 @@ is_deeply(Data::MessagePack->unpack($packed), $input);
$offset = $up->execute($packed, $offset); $offset = $up->execute($packed, $offset);
ok $up->is_finished, 'finished'; ok $up->is_finished, 'finished';
my $data = $up->data; my $data = $up->data;
is scalar(@{$data}), scalar(@{$input}), 'size of @{$data}';
is_deeply $data, $input, "block $i, offset $offset"; is_deeply $data, $input, "block $i, offset $offset";
$up->reset(); $up->reset();
} }