From 770542c8c7d3469af5e54b4036fba47e07e1dee0 Mon Sep 17 00:00:00 2001
From: "Fuji, Goro" <gfuji@cpan.org>
Date: Tue, 12 Oct 2010 23:10:59 +0900
Subject: [PATCH] perl: add tests

---
 perl/t/12_stream_unpack4.t | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/perl/t/12_stream_unpack4.t b/perl/t/12_stream_unpack4.t
index de76e81d..ef6fa395 100644
--- a/perl/t/12_stream_unpack4.t
+++ b/perl/t/12_stream_unpack4.t
@@ -5,11 +5,14 @@ use Test::More;
 use t::Util;
 
 my @input = (
-    +[[]],
+    [[]],
     [[],[]],
     [{"a" => 97},{"a" => 97}],
     [{"a" => 97},{"a" => 97},{"a" => 97}],
     [ map { +{ "foo $_" => "bar $_" } } 'aa' .. 'zz' ],
+    [42, null],
+    [42, true],
+    [42, false],
 );
 
 plan tests => @input * 2;