| Subject: | [TEST] More iterators tests |
Here is a test suite I built to better understand how to build my own
recurrences.
This test suite explores in particular the behavior of next() and
previous() in corner cases such as Infinite.
| Subject: | 21from_recurrence.t |
# Tests DateTime::Set built with from_recurrence
# Copyright (c) 2009 Olivier Mengué
# License: same as DateTime-Set-0.26 or any later version
use Test::More;
use DateTime::Set;
eval 'use DateTime::Format::ISO8601; 1' or plan skip_all => 'Can not load module DateTime::Format::ISO8601';
diag('Test suite by Olivier Mengue < dolmen cpan org >');
my @set = map { DateTime::Format::ISO8601->parse_datetime($_) } qw/
2009-02-27T08:50:05
2009-02-27T09:05:05
2009-02-27T09:20:05
2009-03-02T09:05:05
2009-03-02T09:20:05
2009-03-03T09:05:05
2009-03-03T09:20:05
/;
plan tests =>
($#set+1+4) # no span, next()
+($#set+1+4) # no span, previous
+($#set+1+4) # start, next()
+($#set +4) # after, next()
+($#set+1+4) # end, previous()
+($#set +4) # before, previous()
+($#set+1+4) # start, previous()
+($#set +4) # after, previous()
+($#set+1+4) # end, next()
+($#set +4) # before, next()
;
my $start = $set[0];
sub diag_sub
{
my ($name, $sub) = (shift, shift);
exists $INC{'Test::More'} or eval { use Test::More };
return sub {
diag("$name(", join(', ', @_), ")");
if (wantarray) {
my @ret = $sub->(@_);
diag('=> ', @ret);
return @ret
} else {
my $ret = $sub->(@_);
diag('=> ', $ret);
return $ret;
}
}
}
my $dts = do {
my $idx = 0;
DateTime::Set->from_recurrence(
next => diag_sub(next => sub {
return $set[($idx = 0)] if ($_[0] <=> DateTime::NEG_INFINITY) <= 0;
return DateTime::Infinite::Future->new if $_[0]->is_infinite or $idx == $#set;
return $set[++$idx];
}),
previous => diag_sub(previous => sub {
return $set[($idx = $#set)] if ($_[0] <=> DateTime::INFINITY) >= 0;
return DateTime::Infinite::Past->new if $_[0]->is_infinite or $idx == 0;
return $set[--$idx];
})
)
};
diag("no span, next()");
{
my $it = $dts->iterator;
# ->current is "less or equal to"
is($it->current(DateTime::Infinite::Past->new), undef, "current(Past) is empty");
is($it->current(DateTime::Infinite::Future->new), $set[-1], "current(Future) is $set[-1]");
for my $d (@set) {
is($it->next, $d, $d);
}
is($it->next, undef, "set end -> undef");
# The set is now empty
is($it->previous(DateTime::Infinite::Future->new), undef, "set is now empty");
}
diag("no span, previous()");
{
my $it = $dts->iterator;
is($it->current(DateTime::Infinite::Past->new), undef, "current(Past) is empty");
is($it->current(DateTime::Infinite::Future->new), $set[-1], "current(Future) is $set[-1]");
for my $d (reverse @set) {
is($it->previous, $d, $d);
}
is($it->previous, undef, "end -> undef");
# The set is now empty
is($it->previous(DateTime::Infinite::Future->new), undef, "set is now empty");
}
diag("start, next()");
{
my $it = $dts->iterator(start => $set[0]);
is($it->current(DateTime::Infinite::Past->new), undef, "current(Past) is empty");
is($it->current(DateTime::Infinite::Future->new), $set[-1], "current(Future) is $set[-1]");
for my $d (@set) {
is($it->next, $d, $d);
}
is($it->next, undef, "end -> undef");
# The set is now empty
is($it->previous(DateTime::Infinite::Future->new), undef, "set is now empty");
}
diag("after, next()");
{
my $it = $dts->iterator(after => $set[0]);
is($it->current(DateTime::Infinite::Past->new), undef, "current(Past) is empty");
is($it->current(DateTime::Infinite::Future->new), $set[-1], "current(Future) is $set[-1]");
for my $d (@set[1..$#set]) {
is($it->next, $d, $d);
}
is($it->next, undef, "end -> undef");
# The set is now empty
is($it->previous(DateTime::Infinite::Future->new), undef, "set is now empty");
}
diag("end, previous()");
{
my $it = $dts->iterator(end => $set[-1]);
is($it->current(DateTime::Infinite::Past->new), undef, "current(Past) is empty");
is($it->current(DateTime::Infinite::Future->new), $set[-1], "current(Future) is $set[-1]");
for my $d (reverse @set) {
is($it->previous, $d, $d);
}
is($it->previous, undef, "end -> undef");
# The set is now empty
is($it->previous(DateTime::Infinite::Future->new), undef, "set is now empty");
}
diag("before, previous()");
{
my $it = $dts->iterator(before => $set[-1]);
is($it->current(DateTime::Infinite::Past->new), undef, "current(Past) is empty");
is($it->current(DateTime::Infinite::Future->new), $set[-2], "current(Future) is $set[-2]");
for my $d (reverse @set[0..$#set-1]) {
is($it->previous, $d, $d);
}
is($it->previous, undef, "end -> undef");
# The set is now empty
is($it->previous(DateTime::Infinite::Future->new), undef, "set is now empty");
}
diag("start, previous()");
{
my $it = $dts->iterator(start => $set[0]);
is($it->current(DateTime::Infinite::Past->new), undef, "current(Past) is empty");
is($it->current(DateTime::Infinite::Future->new), $set[-1], "current(Future) is $set[-1]");
for my $d (reverse @set) {
is($it->previous, $d, $d);
}
is($it->previous, undef, "end -> undef");
# The set is now empty
is($it->previous(DateTime::Infinite::Future->new), undef, "set is now empty");
}
diag("after, previous()");
{
my $it = $dts->iterator(after => $set[0]);
is($it->current(DateTime::Infinite::Past->new), undef, "current(Past) is empty");
is($it->current(DateTime::Infinite::Future->new), $set[-1], "current(Future) is $set[-1]");
for my $d (reverse @set[1..$#set]) {
is($it->previous, $d, $d);
}
is($it->previous, undef, "end -> undef");
# The set is now empty
is($it->previous(DateTime::Infinite::Future->new), undef, "set is now empty");
}
diag("end, next()");
{
my $it = $dts->iterator(end => $set[-1]);
is($it->current(DateTime::Infinite::Past->new), undef, "current(Past) is empty");
is($it->current(DateTime::Infinite::Future->new), $set[-1], "current(Future) is $set[-1]");
for my $d (@set) {
is($it->next, $d, $d);
}
is($it->next, undef, "end -> undef");
# The set is now empty
is($it->previous(DateTime::Infinite::Future->new), undef, "set is now empty");
}
diag("before, next()");
{
my $it = $dts->iterator(before => $set[-1]);
is($it->current(DateTime::Infinite::Past->new), undef, "current(Past) is empty");
is($it->current(DateTime::Infinite::Future->new), $set[-2], "current(Future) is $set[-2]");
for my $d (@set[0..$#set-1]) {
is($it->next, $d, $d);
}
is($it->next, undef, "end -> undef");
# The set is now empty
is($it->previous(DateTime::Infinite::Future->new), undef, "set is now empty");
}