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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
|
use Test::More tests => 5;
use strict;
use warnings;
use Iterator::Simple qw(:all);
sub mk_itr {
my($start, $max) = @_;
my $cur = $start;
iterator {
return if $cur > $max;
return $cur++;
}
}
my $itr;
#1
ok( mk_itr(1,5), 'iterator creation' );
#2
{
$itr = mk_itr(2,8);
my @res;
while(defined(my $r = $itr->next)) {
push @res, $r
}
is_deeply ( \@res, [2,3,4,5,6,7,8], 'next method');
}
#3
{
$itr = mk_itr(3,6);
my @res;
while(defined(my $r = $itr->())) {
push @res, $r
}
is_deeply ( \@res, [3,4,5,6], 'direct execute' );
}
#4
{
$itr = mk_itr(11,15);
is_deeply ( list($itr), [11,12,13,14,15], 'listize' );
}
#5
{
$itr = mk_itr(1,5);
my @res;
while(<$itr>) {
push @res, $_;
}
is_deeply ( \@res, [1,2,3,4,5], '"<>" overload' );
}
# @{} overloads could cause confusion
##6
#{
# $itr = mk_itr(12,17);
# is_deeply ( [@{$itr}], [12,13,14,15,16,17], '"@{}" overload' );
#}
|
