X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FSub-Op.git;a=blobdiff_plain;f=t%2F10-base.t;h=1f785e5b4897e9ef9d746edcbba9f6919893677f;hp=891a8cbc693669dca37055f1c77b5f1b2449f078;hb=3b39085a294ef16114b0d119dc8ebdecbe87fb51;hpb=da3f79dfb936676099e3da9c69cf619a7df005e9

diff --git a/t/10-base.t b/t/10-base.t
index 891a8cb..1f785e5 100644
--- a/t/10-base.t
+++ b/t/10-base.t
@@ -5,7 +5,7 @@ use warnings;
 
 use blib 't/Sub-Op-Test';
 
-use Test::More tests => 2 * 15 + 3 * 1 + 2 * 23;
+use Test::More tests => 2 * 15 + 3 * 2 + 2 * 28;
 
 our $called;
 
@@ -142,3 +142,7 @@ foo 1;
 bar 2;
 ----
 foo, bar # () # [ 1 ], [ 2 ] # foo, bar
+####
+foo 1, foo(2), 3, bar(4, foo(bar, 5), 6);
+----
+foo, bar # @_ # [ 2 ], [ ], [ 5 ], [ 4, 5, 6 ], [ 1, 2, 3, 4, 5, 6 ] # foo, bar, foo, bar, foo