X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FSub-Prototype-Util.git;a=blobdiff_plain;f=t%2F10-flatten.t;h=8c23c3c105e390eaa0bf45b91a47ba43186735a0;hp=05f56e7fa35f5fb97c1098a0018c03cf4ebf4838;hb=60e38805350346d06fe27a7dee61932e0da22413;hpb=5e934b02978f8e2a411e8aba352fc6465c0e3aba

diff --git a/t/10-flatten.t b/t/10-flatten.t
index 05f56e7..8c23c3c 100644
--- a/t/10-flatten.t
+++ b/t/10-flatten.t
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 26;
+use Test::More tests => 27;
 
 use Sub::Prototype::Util qw/flatten/;
 
@@ -40,9 +40,10 @@ my @tests = (
  [ '\&$',      'coderef', [ \&main::hlagh,  1 ], [ 'HLAGH',   1 ] ],
  [ '\[$@%]',   'class got scalarref',    [ \1 ], [ 1 ] ],
  [ '\[$@%]',   'class got arrayref',  [ [ 1 ] ], [ 1 ] ],
- [ '\[$@%]',   'class got hashref', [ { 1,2 } ], [ 1, 2 ] ]
+ [ '\[$@%]',   'class got hashref', [ { 1,2 } ], [ 1, 2 ] ],
+ [ '_',        '_ with argument',      [ 1, 2 ], [ 1 ] ]
 );
-my $l = [ '_', '$_', [ ] ];
+my $l = [ '_', '_ with no argument', [ ] ];
 $l->[3] = [ $l ];
 push @tests, $l;