From c506cd97e0032ec070a81b58a55f5089a4a1b60f Mon Sep 17 00:00:00 2001
From: "Fuji, Goro" <gfuji@cpan.org>
Date: Wed, 13 Oct 2010 10:43:56 +0900
Subject: [PATCH] perl: tests
---
perl/t/01_pack.t | 2 ++
perl/t/data.pl | 1 +
2 files changed, 3 insertions(+)
diff --git a/perl/t/01_pack.t b/perl/t/01_pack.t
index 50fd6631..8c619809 100644
--- a/perl/t/01_pack.t
+++ b/perl/t/01_pack.t
@@ -55,6 +55,8 @@ my @dat = (
[0, -128, -1, 0, -32768, -1, 0, -2147483648, -1], '99 00 d0 80 ff 00 d1 80 00 ff 00 d2 80 00 00 00 ff',
2147483648, 'ce 80 00 00 00',
-2147483648, 'd2 80 00 00 00',
+ 'a' x 0x0100, 'da 01 00' . (' 61' x 0x0100),
+ [(undef) x 0x0100], 'dc 01 00' . (' c0' x 0x0100),
);
plan tests => 1*(scalar(@dat)/2);
diff --git a/perl/t/data.pl b/perl/t/data.pl
index 300eec1b..b7bbaf1a 100644
--- a/perl/t/data.pl
+++ b/perl/t/data.pl
@@ -22,6 +22,7 @@ no warnings; # i need this, i need this.
'82 c2 81 c0 c0 c3 81 c0 80', {false,{undef,undef}, true,{undef,{}}},
'96 de 00 00 de 00 01 c0 c2 de 00 02 c0 c2 c3 c2 df 00 00 00 00 df 00 00 00 01 c0 c2 df 00 00 00 02 c0 c2 c3 c2',
[{}, {undef,false}, {true,false, undef,false}, {}, {undef,false}, {true,false, undef,false}],
+ 'dc 01 00' . (' c0' x 0x0100), [(undef) x 0x0100],
'ce 00 ff ff ff' => ''.0xFFFFFF,
'aa 34 32 39 34 39 36 37 32 39 35' => ''.0xFFFFFFFF,
'ab 36 38 37 31 39 34 37 36 37 33 35' => ''.0xFFFFFFFFF,