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
|
#!/usr/bin/perl
use strict;
use warnings;
use Test::More tests => 46;
BEGIN {
use_ok('Array::Iterator::Circular')
};
can_ok('Array::Iterator::Circular', 'new');
my $i = Array::Iterator::Circular->new(1 .. 5);
isa_ok($i, 'Array::Iterator::Circular');
isa_ok($i, 'Array::Iterator');
can_ok($i, 'getLoopCount');
can_ok($i, 'get_loop_count');
can_ok($i, 'isStart');
can_ok($i, 'is_start');
can_ok($i, 'isEnd');
can_ok($i, 'is_end');
can_ok($i, 'getNext');
can_ok($i, 'get_next');
cmp_ok($i->getLength(), '==', 5, '5 elements in the array');
ok($i->isStart(), '... we are at the start of the array');
my $total_count = 0;
while ($i->getLoopCount() < 5) {
if ($total_count && (($total_count % 5) == 0)) {
ok($i->isEnd(), '... we are at the end of the array');
ok($i->hasNext(), '... we should still get true from hasNext');
}
defined($i->getNext()) || fail('... this should never return undef');
$total_count++;
}
cmp_ok($i->getLoopCount(), '==', 5, '... we have looped 5 times');
# this should be 1 past because of how the loop
# above it structured, it is correct.
cmp_ok($total_count, '==', 26, '... we have looped 5 times');
# GitHub#4
use Array::Iterator::Circular;
my $chars = Array::Iterator::Circular->new('-', '-');
for my $i (1..10) {
cmp_ok($chars->next(), 'eq', '-', "Element $i of 2 is -");
}
$chars = Array::Iterator::Circular->new('-');
for my $i (1..10) {
cmp_ok($chars->next(), 'eq', '-', "Element $i of 1 is -");
}
|
