perl: add tests

2025-03-30 07:26:29 +02:00 · 2010-10-12 23:10:59 +09:00 · 2010-10-12 23:10:59 +09:00 · 770542c8c7
commit 770542c8c7
parent 4f1207a38c
1 changed files with 4 additions and 1 deletions
--- 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;