use strict;
use warnings;
-use Test::More tests => 31;
+use Test::More tests => 32;
use Sub::Nary;
[ sub { map { return $_ ? 2 : (3, 4) } do { return 3 .. 5 if $x; () } },
{ 3 => 0.5, 0 => 0.5 } ],
- [ sub { grep { 1 } 1 .. 10 }, 'list' ],
- [ sub { grep { 1 } @_ }, 'list' ],
+ [ sub { grep { 1 } 1 .. 10 }, 'list' ],
+ [ sub { grep { 1 } @_ }, 'list' ],
+ [ sub { grep { 1 } () }, 0 ],
[ sub { map { $_ } 1 .. 3 }, 3 ],
[ sub { map { () } @_ }, 0 ],