DROLSKY / DateTime-1.66 / xt / author / pp-27delta.t 

            

              
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
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110

              
BEGIN {
    $ENV{PERL_DATETIME_PP} = 1;
}
use strict;
use warnings;
use Test::More;
use DateTime;
undef $ENV{PERL_DATETIME_DEFAULT_TZ};
{
    my $date1 = DateTime->new(
        year       => 2001, month  => 5, day    => 10,
        hour       => 4,    minute => 3, second => 2,
        nanosecond => 12,
        time_zone  => 'UTC'
    );
    my $date2 = DateTime->new(
        year       => 2001, month  => 6, day    => 12,
        hour       => 5,    minute => 7, second => 23,
        nanosecond => 7,
        time_zone  => 'UTC'
    );
    {
        my $dur_md = $date2->delta_md($date1);
        is( $dur_md->delta_months,      1, 'delta_md months is 1' );
        is( $dur_md->delta_days,        2, 'delta_md days is 2' );
        is( $dur_md->delta_minutes,     0, 'delta_md minutes is 0' );
        is( $dur_md->delta_seconds,     0, 'delta_md seconds is 0' );
        is( $dur_md->delta_nanoseconds, 0, 'delta_md nanoseconds is 0' );
        my $dur_d = $date2->delta_days($date1);
        is( $dur_d->delta_months,      0,  'delta_d months is 0' );
        is( $dur_d->delta_days,        33, 'delta_d days is 33' );
        is( $dur_d->delta_minutes,     0,  'delta_d minutes is 0' );
        is( $dur_d->delta_seconds,     0,  'delta_d seconds is 0' );
        is( $dur_d->delta_nanoseconds, 0,  'delta_d nanoseconds is 0' );
        my $dur_ms = $date2->delta_ms($date1);
        is( $dur_ms->delta_months,      0,     'delta_ms months is 0' );
        is( $dur_ms->delta_days,        0,     'delta_ms days is 0' );
        is( $dur_ms->delta_minutes,     47584, 'delta_ms minutes is 47584' );
        is( $dur_ms->delta_seconds,     20,    'delta_ms seconds is 20' );
        is( $dur_ms->delta_nanoseconds, 0,     'delta_ms nanoseconds is 0' );
        is( $dur_ms->hours, 793, 'hours is 793' );
    }
    {
        my $dur_md = $date1->delta_md($date2);
        is( $dur_md->delta_months,      1, 'delta_md months is 1' );
        is( $dur_md->delta_days,        2, 'delta_md days is 2' );
        is( $dur_md->delta_minutes,     0, 'delta_md minutes is 0' );
        is( $dur_md->delta_seconds,     0, 'delta_md seconds is 0' );
        is( $dur_md->delta_nanoseconds, 0, 'delta_md nanoseconds is 0' );
        my $dur_d = $date1->delta_days($date2);
        is( $dur_d->delta_months,      0,  'delta_d months is 0' );
        is( $dur_d->delta_days,        33, 'delta_d days is 33' );
        is( $dur_d->delta_minutes,     0,  'delta_d minutes is 0' );
        is( $dur_d->delta_seconds,     0,  'delta_d seconds is 0' );
        is( $dur_d->delta_nanoseconds, 0,  'delta_d nanoseconds is 0' );
        my $dur_ms = $date1->delta_ms($date2);
        is( $dur_ms->delta_months,      0,     'delta_ms months is 0' );
        is( $dur_ms->delta_days,        0,     'delta_ms days is 0' );
        is( $dur_ms->delta_minutes,     47584, 'delta_ms minutes is 47584' );
        is( $dur_ms->delta_seconds,     20,    'delta_ms seconds is 20' );
        is( $dur_ms->delta_nanoseconds, 0,     'delta_ms nanoseconds is 0' );
        is( $dur_ms->hours, 793, 'hours is 793' );
    }
}
{
    my $date1 = DateTime->new(
        year      => 2001, month  => 5, day    => 10,
        hour      => 15,   minute => 0, second => 0,
        time_zone => 'UTC'
    );
    my $date2 = DateTime->new(
        year      => 2001, month  => 5,  day    => 11,
        hour      => 12,   minute => 30, second => 10,
        time_zone => 'UTC'
    );
    my $dur_ms = $date1->delta_ms($date2);
    is( $dur_ms->delta_months,      0,    'delta_ms months is 0' );
    is( $dur_ms->delta_days,        0,    'delta_ms days is 0' );
    is( $dur_ms->delta_minutes,     1290, 'delta_ms minutes is 1290' );
    is( $dur_ms->delta_seconds,     10,   'delta_ms seconds is 30' );
    is( $dur_ms->delta_nanoseconds, 0,    'delta_ms nanoseconds is 0' );
    is( $dur_ms->hours, 21, 'hours is 21' );
}
done_testing();