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