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
|
#!/usr/bin/perl -w
use strict;
use Test::More;
plan tests => 4;
use DateTime;
use DateTime::Set;
#======================================================================
# previous method
#======================================================================
use constant INFINITY => 100 ** 100 ** 100 ;
use constant NEG_INFINITY => -1 * (100 ** 100 ** 100);
{
my $set =
DateTime::Set->from_recurrence
( previous =>
sub { $_[0]->truncate( to => 'day' )->subtract( days => 1 ) }
);
my $dt = DateTime->new( year => 2000,
month => 10,
day => 3,
);
my $prev_dt = $set->previous($dt);
is( $prev_dt->ymd, '2000-10-02',
'previous day is 2000-10-02' );
is( $set->previous($prev_dt)->ymd, '2000-10-01',
'previous day is 2000-10-01' );
}
{
my $set =
DateTime::Set->from_recurrence
( next =>
sub { $_[0]->truncate( to => 'day' )->add( days => 1 ) }
);
my $dt = DateTime->new( year => 2000,
month => 10,
day => 3,
);
my $prev_dt = $set->previous($dt);
is( $prev_dt->ymd, '2000-10-02',
'previous day is 2000-10-02' );
is( $set->previous($prev_dt)->ymd, '2000-10-01',
'previous day is 2000-10-01' );
}
|
