use strict;
use warnings;
-use Test::More tests => 48;
+use Test::More tests => 49;
use Sub::Nary;
[ sub { delete @h{qw/foo bar baz/} }, 3 ],
[ sub { grep { 1 } 1 .. 10 }, 'list' ],
+ [ sub { grep { 1 } @_ }, 'list' ],
[ sub { map { $_ } 1 .. 3 }, 3 ],
[ sub { map { () } @_ }, 0 ],