Skip Menu |
 

This queue is for tickets about the DateTime-Set CPAN distribution.

Report information
The Basics
Id: 43792
Status: resolved
Priority: 0/
Queue: DateTime-Set

People
Owner: FGLOCK [...] cpan.org
Requestors: dolmen [...] cpan.org
Cc:
AdminCc:

Bug Information
Severity: Normal
Broken in: (no value)
Fixed in: (no value)



Subject: [TEST] More iterators tests
Download (untitled) / with headers
text/plain 193b
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
Download 21from_recurrence.t
text/x-perl 6.3k
# 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"); }
Tests added to DateTime::Set 0.30 thanks! Flavio S. Glock


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.