From ea36ef310783b502af7125848ab9679a8fb3b293 Mon Sep 17 00:00:00 2001
From: "Fuji, Goro" <gfuji@cpan.org>
Date: Thu, 28 Oct 2010 17:05:41 +0900
Subject: [PATCH] perl: tests

---
 perl/t/16_unpacker_for_larges.t | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/perl/t/16_unpacker_for_larges.t b/perl/t/16_unpacker_for_larges.t
index 81e7c6a..8d0b5d7 100644
--- a/perl/t/16_unpacker_for_larges.t
+++ b/perl/t/16_unpacker_for_larges.t
@@ -2,16 +2,14 @@ use strict;
 use Test::More;
 use Data::MessagePack;
 
-foreach my $data("abc") {
+foreach my $data("abc", [42]) {
     my $packed = Data::MessagePack->pack($data);
 
     my $unpacker = Data::MessagePack::Unpacker->new;
     note "buff: ", join " ", map { unpack 'H2', $_ } split //, $packed;
 
-    my $offset = 0;
     foreach my $byte(split //, $packed) {
-        note "offset: $offset";
-        $offset += $unpacker->execute($byte);
+        $unpacker->execute($byte);
     }
 
     ok $unpacker->is_finished, 'finished';