More tests; some fails now :(

perl/t/06_stream_unpack2.t

@@ -35,7 +35,7 @@ is_deeply(Data::MessagePack->unpack($packed), $input);
     while( read($stream, $buff, $size) ) {
         note "buff: ", join " ", map { unpack 'H2', $_ } split //, $buff;
 
-        $up->execute($buff, 0);
+        $up->execute($buff);
     }
     ok $up->is_finished, 'is_finished';
     my $data = $up->data;

perl/t/09_stddata.t

@@ -0,0 +1,35 @@
+use strict;
+use Test::More;
+use Test::Requires qw(JSON);
+use t::Util;
+
+use Data::MessagePack;
+
+sub slurp {
+    open my $fh, '<:raw', $_[0] or die "failed to open '$_[0]': $!";
+    local $/;
+    return scalar <$fh>;
+}
+
+my @data = @{ JSON::decode_json(slurp("t/std/cases.json")) };
+
+my $mpac1  = slurp("t/std/cases.mpac");
+my $mpac2  = slurp("t/std/cases_compact.mpac");
+
+my $mps = Data::MessagePack::Unpacker->new();
+
+my $t = 1;
+for my $mpac($mpac1, $mpac2) {
+    note "mpac", $t++;
+
+    my $offset = 0;
+    my $i = 0;
+    while($offset < length($mpac)) {
+        $offset += $mps->execute($mpac, $offset);
+        is_deeply $mps->data, $data[$i], "data[$i]";
+        $mps->reset;
+        $i++;
+    }
+}
+
+done_testing;