perl: add failing tests for PP

This commit is contained in:
Fuji, Goro 2010-10-30 01:09:12 +09:00
parent 5de2b974fb
commit 3f16f080ac

View File

@ -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;