1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
use Test::More;
use Test::LMU;
my @x = ('a' .. 'g');
my $it = natatime 3, @x;
my @r;
local $" = " ";
while (my @vals = $it->())
{
push @r, "@vals";
}
is(is_deeply(\@r, ['a b c', 'd e f', 'g']), 1, "natatime with 3 elements");
my @a = (1 .. 1000);
$it = natatime 1, @a;
@r = ();
while (my @vals = &$it)
{
push @r, @vals;
}
is(is_deeply(\@r, \@a), 1, "natatime with 1 element");
leak_free_ok(
natatime => sub {
my @y = 1;
my $it = natatime 2, @y;
while (my @vals = $it->())
{
# do nothing
}
}
);
done_testing;
|
