The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

DROLSKY / DateTime-TimeZone-1.74 / t / 07offset-only.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

              
use strict;
use warnings;
use File::Spec;
use Test::More;
use lib File::Spec->catdir( File::Spec->curdir, 't' );
BEGIN { require 'check_datetime_version.pl' }
eval { DateTime::TimeZone::OffsetOnly->new( offset => 'bad' ) };
is(
    $@, "Invalid offset: bad\n",
    'test that OffsetOnly does not allow invalid offsets'
);
my $off = DateTime::TimeZone::OffsetOnly->new( offset => '-0100' );
is( $off->name, '-0100', 'name is -0100' );
my @good_offsets = (
    [ '0',         'UTC' ],
    [ '0000',      'UTC' ],
    [ '000000',    'UTC' ],
    [ '1000',      '+1000' ],
    [ '100001',    '+100001' ],
    [ '10:00:02',  '+100002' ],
    [ '+0000',     'UTC' ],
    [ '+000000',   'UTC' ],
    [ '+000001',   '+000001' ],
    [ '+00:00:02', '+000002' ],
    [ '-0000',     'UTC' ],
    [ '-000000',   'UTC' ],
    [ '-000001',   '-000001' ],
    [ '-00:00:02', '-000002' ],
    [ '+9959',     '+9959' ],
    [ '+995959',   '+995959' ],
    [ '+99:59:58', '+995958' ],
    [ '-9959',     '-9959' ],
    [ '-995959',   '-995959' ],
    [ '-99:59:58', '-995958' ],
    [ '1:11:11',   '+011111' ],
    [ '+1:11:11',  '+011111' ],
    [ '-1:11:11',  '-011111' ],
    [ '1:11',      '+0111' ],
    [ '+1:11',     '+0111' ],
    [ '-1:11',     '-0111' ],
);
my @bad_offsets = (
    '+0', '-0',
    '1',        '+1',        '-1',
    '1:',       '+1:',       '-1:',
    ':1',       '+:1',       '-:1',
    '11',       '+11',       '-11',
    '11:',      '+11:',      '-11:',
    '1:1',      '+1:1',      '-1:1',
    ':11',      '+:11',      '-:11',
    '111',      '+111',      '-111',
    '111:',     '+111:',     '-111:',
    '11:1',     '+11:1',     '-11:1',
    ':111',     '+:111',     '-:111',
    ':11:1',    '+:11:1',    '-:11:1',
    '1:11:',    '+1:11:',    '-1:11:',
    '1111:',    '+1111:',    '-1111:',
    '111:1',    '+111:1',    '-111:1',
    '1:111',    '+1:111',    '-1:111',
    ':1111',    '+:1111',    '-:1111',
    ':11:11',   '+:11:11',   '-:11:11',
    '1:11:1',   '+1:11:1',   '-1:11:1',
    '11:11:',   '+11:11:',   '-11:11:',
    '11111',    '+11111',    '-11111',
    '11111:',   '+11111:',   '-11111:',
    '1111:1',   '+1111:1',   '-1111:1',
    '111:11',   '+111:11',   '-111:11',
    '11:111',   '+11:111',   '-11:111',
    '1:1111',   '+1:1111',   '-1:1111',
    ':11111',   '+:11111',   '-:11111',
    ':11:111',  '+:11:111',  '-:11:111',
    '11:11:1',  '+11:11:1',  '-11:11:1',
    '111:11:',  '+111:11:',  '-111:11:',
    '111111:',  '+111111:',  '-111111:',
    '11111:1',  '+11111:1',  '-11111:1',
    '1111:11',  '+1111:11',  '-1111:11',
    '111:111',  '+111:111',  '-111:111',
    '11:1111',  '+11:1111',  '-11:1111',
    '1:11111',  '+1:11111',  '-1:11111',
    ':111111',  '+:111111',  '-:111111',
    ':11:1111', '+:11:1111', '-:11:1111',
    '1:11:111', '+1:11:111', '-1:11:111',
    '111:11:1', '+111:11:1', '-111:11:1',
    '1111:11:', '+1111:11:', '-1111:11:',
    '1111111',  '+1111111',  '-1111111',
    '00:60',    '+00:60',    '-00:60',
    '00:99',    '+00:99',    '-00:99',
    '00:60:00', '+00:60:00', '-00:60:00',
    '00:99:00', '+00:99:00', '-00:99:00',
    '00:00:60', '+00:00:60', '-00:00:60',
    '00:00:99', '+00:00:99', '-00:00:99',
    '00:60:60', '+00:60:60', '-00:60:60',
    '00:99:99', '+00:99:99', '-00:99:99',
);
foreach (@good_offsets) {
    my $off = DateTime::TimeZone::OffsetOnly->new( offset => $_->[0] );
    is( $off->name, $_->[1], "name matches $_->[1]" );
}
foreach (@bad_offsets) {
    eval { DateTime::TimeZone::OffsetOnly->new( offset => $_ ) };
    like( $@, qr/Invalid offset/, "$_ is invalid" );
}
done_testing();