From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

WYANT / DateTime-Fiction-JRRTolkien-Shire-0.907_01 / t / 11duration.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
111
112
113
114
115
116
117
118
119
120
121
122
123
124

              
use strict;
use warnings;
use Test::More tests => 28;
use constant DURATION => 'DateTime::Fiction::JRRTolkien::Shire::Duration';
use_ok( DURATION )
    or BAIL_OUT( $@ );
# NOTE that we ONLY test the duration object in this test. That means we MUST NOT test compare().
{
    my $dur = DURATION->new(
        years   => 1,
        months  => 2,
        weeks   => 3,
        days    => 4,
    );
    my %want = (
        years   => 1,
        months  => 2,
        weeks   => 3,
        days    => 4,
        map { $_ => 0 } qw{ minutes seconds nanoseconds },
    );
    my %sum = (
        years   => 1,
        months  => 3,
        weeks   => 2,
        days    => 4,
        map { $_ => 0 } qw{ minutes seconds nanoseconds },
    );
    ok( $dur->is_positive(), 'Duration is positive' );
    ok( ! $dur->is_zero(), 'Duration is not zero' );
    ok( ! $dur->is_negative(), 'Duration is not negative' );
    is_deeply( { $dur->deltas() }, \%want, 'Weeks are preserved' );
    cmp_ok( $dur->delta_years(), '==', 1, 'delta_years() is 1' );
    cmp_ok( $dur->delta_months(), '==', 2, 'delta_months() is 2' );
    cmp_ok( $dur->delta_weeks(), '==', 3, 'delta_weeks() is 3' );
    cmp_ok( $dur->delta_days(), '==', 4, 'delta_days() is 4' );
    cmp_ok( $dur->delta_minutes(), '==', 0, 'delta_minutes() is 0' );
    cmp_ok( $dur->delta_seconds(), '==', 0, 'delta_seconds() is 0' );
    cmp_ok( $dur->delta_nanoseconds(), '==', 0, 'delta_nanoseconds() is 0' );
    cmp_ok( $dur->years(), '==', 1, 'years() is 1' );
    cmp_ok( $dur->months(), '==', 2, 'months() is 2' );
    cmp_ok( $dur->weeks(), '==', 3, 'weeks() is 3' );
    cmp_ok( $dur->days(), '==', 4, 'days() is 4' );
    cmp_ok( $dur->hours(), '==', 0, 'hours() is 0' );
    cmp_ok( $dur->minutes(), '==', 0, 'minutes() is 0' );
    cmp_ok( $dur->seconds(), '==', 0, 'seconds() is 0' );
    cmp_ok( $dur->nanoseconds(), '==', 0, 'nanoseconds() is 0' );
    is_deeply( { $dur->inverse()->deltas() }, {
            years       => -1,
            months      => -2,
            weeks       => -3,
            days        => -4,
            map { $_ => 0 } qw{ minutes seconds nanoseconds },
        }, 'Inverse' );
    is_deeply( { $dur->calendar_duration()->deltas() }, \%want,
        'Calendar duration' );
    is_deeply( { $dur->clock_duration()->deltas() }, {
            map { $_ => 0 } qw{
                years months weeks days minutes seconds nanoseconds
            },
        }, 'Clock duration' );
    $dur->add( months => 1, weeks => -1 );
    is_deeply( { $dur->deltas() }, \%sum,
        'Add one month less one week' );
    $dur->subtract( months => 1, weeks => -1 );
    is_deeply( { $dur->deltas() }, \%want,
        'Subtract one month less one week' );
    my $delta = DURATION->new( months => 1, weeks => -1 );
    $dur += $delta;
    is_deeply( { $dur->deltas() }, \%sum,
        'Add one month less one week using overload' );
    $dur -= $delta;
    is_deeply( { $dur->deltas() }, \%want,
        'Subtract one month less one week using overload' );
    is_deeply( { ( $dur * 2 )->deltas() }, {
            years       => 2,
            months      => 4,
            weeks       => 6,
            days        => 8,
            map { $_ => 0 } qw{ minutes seconds nanoseconds },
        }, 'Multiply by two using overload' );
}
# ex: set textwidth=72 :