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
|
use Test::More qw(no_plan);
BEGIN { use_ok('Date::ICal'); }
my $date1 = Date::ICal->new( ical => '20010510T040302Z' );
my $date2 = Date::ICal->new( ical => '20010612T050723Z' );
my $diff = $date2 - $date1;
is( $diff->as_days, 33, 'Total # of days' );
is( $diff->weeks, 4, 'Weeks' );
is( $diff->days, 5, 'Days' );
is( $diff->hours, 1, 'Hours' );
is( $diff->minutes, 4, 'Min' );
is( $diff->seconds, 21, 'Sec' );
is( $diff->as_ical, 'P4W5DT1H4M21S', 'Duration' );
my $d = Date::ICal->new( ical => '20011019T050101Z' );
my $dur = 'P1W1DT1H1M1S';
my $X = $d - $dur;
ok( $X, 'Defined' );
is( $X->ical, '20011011T040000Z', 'Subtract and get the right thing' );
my $Y = $d - 'P1W1DT1H1M1S';
ok( $Y, 'Defined' );
is( $Y->ical, '20011011T040000Z', 'Subtract and get the right thing' );
$date1 = Date::ICal->new( ical => '20010510T040302Z' );
$date2 = Date::ICal->new( ical => '20010612T050723Z' );
$diff = $date1 - $date2;
is( $diff->as_days, -33, 'Negative duration, days' );
is( $diff->weeks, -4, 'Weeks' );
is( $diff->days, -5, 'Days' );
is( $diff->hours, -1, 'Hours' );
is( $diff->minutes, -4, 'Min' );
is( $diff->seconds, -21, 'Sec' );
is( $diff->as_ical, '-P4W5DT1H4M21S', 'Duration' );
$diff = $date1 - $date1;
is( $diff->as_ical, 'PT0S', 'Zero duration' );
is( $diff->weeks, undef, 'Just checking' );
|
