From 70d2c47367ca56be99f0b7e7b815171162ff211e Mon Sep 17 00:00:00 2001
From: tokuhirom <tokuhirom@gmail.com>
Date: Sun, 2 May 2010 22:09:18 +0900
Subject: [PATCH] perl: added more test case for streaming deserializer.

---
 perl/t/03_stream_unpack.t | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/perl/t/03_stream_unpack.t b/perl/t/03_stream_unpack.t
index 0a8d7d9b..a4ab4eba 100644
--- a/perl/t/03_stream_unpack.t
+++ b/perl/t/03_stream_unpack.t
@@ -23,10 +23,21 @@ sub pis ($$) {
 
 my @dat = do 't/data.pl';
 
-plan tests => 1*(scalar(@dat)/2) + 1;
+plan tests => 1*(scalar(@dat)/2) + 3;
 
 isa_ok $up, 'Data::MessagePack::Unpacker';
 for (my $i=0; $i<scalar(@dat); ) {
     pis $dat[$i++], $dat[$i++];
 }
 
+# devided.
+{
+    my $up = Data::MessagePack::Unpacker->new();
+    $up->execute("\x95", 0); # array marker
+    for (1..5) {
+        $up->execute("\xc0", 0); # nil
+    }
+    ok $up->is_finished;
+    is_deeply $up->data, [undef, undef, undef, undef, undef];
+}
+