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;