From d8aaef4f04e3e22c028a7d6a10755f2a084f3cd2 Mon Sep 17 00:00:00 2001
From: "Fuji, Goro" <gfuji@cpan.org>
Date: Thu, 21 Oct 2010 23:35:07 +0900
Subject: [PATCH] perl: tests

---
 perl/t/06_stream_unpack2.t | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/perl/t/06_stream_unpack2.t b/perl/t/06_stream_unpack2.t
index f50401fd..08724373 100644
--- a/perl/t/06_stream_unpack2.t
+++ b/perl/t/06_stream_unpack2.t
@@ -1,7 +1,7 @@
 use strict;
 use warnings;
 use Data::MessagePack;
-use Test::More tests => 61;
+use Test::More tests => 64;
 use t::Util;
 
 my $input = [
@@ -36,6 +36,7 @@ is_deeply(Data::MessagePack->unpack($packed), $input);
         $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();
     }