From 3f16f080aca89758f8d8e4cc5c6000718598ce4f Mon Sep 17 00:00:00 2001
From: "Fuji, Goro" <gfuji@cpan.org>
Date: Sat, 30 Oct 2010 01:09:12 +0900
Subject: [PATCH] perl: add failing tests for PP

---
 perl/t/16_unpacker_for_larges.t | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl/t/16_unpacker_for_larges.t b/perl/t/16_unpacker_for_larges.t
index 8d0b5d7f..26894a20 100644
--- a/perl/t/16_unpacker_for_larges.t
+++ b/perl/t/16_unpacker_for_larges.t
@@ -2,7 +2,7 @@ use strict;
 use Test::More;
 use Data::MessagePack;
 
-foreach my $data("abc", [42]) {
+foreach my $data("abc", [ 'x' x 1024 ], [0xFFFF42]) {
     my $packed = Data::MessagePack->pack($data);
 
     my $unpacker = Data::MessagePack::Unpacker->new;