summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorTokuhiro Matsuno <tokuhirom@gmail.com>2009-07-22 13:41:31 +0900
committerTokuhiro Matsuno <tokuhirom@gmail.com>2009-07-22 13:41:31 +0900
commit390c5ad8a0424968dbcc4b69750d2c31f1872b4f (patch)
tree51e7be98dc6778371c93838a25cef10a378cc74a
parent2da4b17d0b0fa8d7a7d32a7453a8f8155160a411 (diff)
downloadmsgpack-python-390c5ad8a0424968dbcc4b69750d2c31f1872b4f.tar.gz
added test case.
-rw-r--r--perl/t/01_pack.t2
1 files changed, 2 insertions, 0 deletions
diff --git a/perl/t/01_pack.t b/perl/t/01_pack.t
index 60c67f8..dbf7a9a 100644
--- a/perl/t/01_pack.t
+++ b/perl/t/01_pack.t
@@ -15,6 +15,8 @@ sub pis ($$) {
my @dat = (
0, '00',
+ (my $foo="0")+0, '00',
+ {2 => undef}, '81 a1 32 c0',
1, '01',
127, '7f',
128, 'cc 80',