use strict;
use warnings;
-use Test::More tests => 66;
+use Test::More tests => 67;
use Sub::Nary;
[ sub { for (1, 2, 3) { } return 1, 2; }, 2 ],
[ sub { for (do { return 1, 2, 3 }) { } return 1, 2; }, 3 ],
[ sub { for (do { return 2, 3 if $x }) { } }, { 2 => 0.5, 0 => 0.5 } ],
+ [ sub { for (1, 2, 3) { return 1, 2 if $x } }, 'list' ],
[ sub { for ($x, 1, $y) { return 1, 2 } }, 2 ],
[ sub { for (@a) { return 1, do { $x } } }, 2 ],
[ sub { for (keys %h) { return do { 1 }, do { return @a[0, 2] } } }, 2 ],