From 953aa95c648fef85f9c11c5ed251f3ddab988a83 Mon Sep 17 00:00:00 2001
From: tokuhirom <tokuhirom@gmail.com>
Date: Sat, 18 Sep 2010 06:16:26 +0900
Subject: [PATCH] perl: added failing test case for streaming unpacker with PP.

---
 perl/t/11_stream_unpack3.t | 39 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 39 insertions(+)
 create mode 100644 perl/t/11_stream_unpack3.t

diff --git a/perl/t/11_stream_unpack3.t b/perl/t/11_stream_unpack3.t
new file mode 100644
index 00000000..0eb8bff7
--- /dev/null
+++ b/perl/t/11_stream_unpack3.t
@@ -0,0 +1,39 @@
+use strict;
+use warnings;
+use Test::More;
+use Data::MessagePack;
+
+my @data = ( [ 1, 2, 3 ], [ 4, 5, 6 ] );
+
+# serialize
+my $buffer = '';
+for my $d (@data) {
+    $buffer .= Data::MessagePack->pack($d);
+}
+
+# deserialize
+my $cb = sub {
+    my ($data) = @_;
+
+    my $d = shift @data;
+    is_deeply $data, $d;
+};
+my $unpacker = Data::MessagePack::Unpacker->new();
+my $nread = 0;
+while (1) {
+    $nread = $unpacker->execute( $buffer, $nread );
+    if ( $unpacker->is_finished ) {
+        my $ret = $unpacker->data;
+        $cb->( $ret );
+        $unpacker->reset;
+
+        $buffer = substr( $buffer, $nread );
+        $nread = 0;
+        next if length($buffer) != 0;
+    }
+    last;
+}
+is scalar(@data), 0;
+
+done_testing;
+