1#!perl -T
2
3use Test::More tests => 4;
4
5use List::Flatten;
6
7my @foo = (1, 2, [3, 4, 5], 6, [7, 8], 9);
8my @bar = flat @foo;
9is(int @bar, 9, 'flattened correctly');
10is($bar[4], 5, 'element 5 correctly interpolated');
11
12# check for empty arrayrefs
13my @bar2 = flat 1, 2, [], 3;
14is(int @bar2, 3, 'flattened empty arrayref correctly');
15is($bar2[2], 3, 'element 3 correctly interpolated');
16
17
18
19
20