1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
use Test::More tests => 4;
use strict;
use warnings;
use Iterator::Simple qw(:all);
my $itr;
{
my $aryiter = iter([ 'foo', 'bar', iter(['hoge','hage']), 1, 2]);
$itr = iflatten $aryiter;
ok is_iterator($itr), 'iflatten creation';
is_deeply list($itr) => ['foo', 'bar','hoge','hage',1,2], 'iflatten result';
}
{
my $ary = [ 'foo', 'bar', iter(['hoge','hage']), 1, 2];
$itr = iflatten $ary;
ok is_iterator($itr), 'iterable source';
is_deeply list($itr) => ['foo', 'bar','hoge','hage',1,2], 'iterable source result';
}
|
