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
|
use strict;
use warnings;
use lib 't/inc';
use nptestutils;
use Number::Phone;
use Number::Phone::Lib;
use Number::Phone::NANP;
use Test::More;
my $all_nanp_timezones = ['America/Adak','America/Anchorage','America/Anguilla','America/Antigua','America/Barbados','America/Boise','America/Cayman','America/Chicago','America/Denver','America/Dominica','America/Edmonton','America/Fort_Nelson','America/Grand_Turk','America/Grenada','America/Halifax','America/Jamaica','America/Juneau','America/Los_Angeles','America/Lower_Princes','America/Montserrat','America/Nassau','America/New_York','America/North_Dakota/Center','America/Phoenix','America/Port_of_Spain','America/Puerto_Rico','America/Regina','America/Santo_Domingo','America/St_Johns','America/St_Kitts','America/St_Lucia','America/St_Thomas','America/St_Vincent','America/Toronto','America/Tortola','America/Vancouver','America/Winnipeg','Atlantic/Bermuda','Pacific/Guam','Pacific/Honolulu','Pacific/Pago_Pago','Pacific/Saipan'];
my @tests = (
'+442087712924' => ['Europe/London'], # Geographic UK number
'+445511000000' => ['Europe/Guernsey','Europe/Isle_of_Man','Europe/Jersey','Europe/London'], # Non-geographic UK number
'+441481720014' => ['Europe/Guernsey'], # Geographic Guernsey number
'+12024181440' => ['America/New_York'], # geographic New York number
'+18765551234' => ['America/Jamaica'], # geographic Jamaican number
'+12642920000' => ['America/Anguilla'], # geographic Anguilla number
'+12642350000' => $all_nanp_timezones, # mobile Anguilla number
'+17875551234' => ['America/Puerto_Rico'], # 1st Puerto Rico area code
'+19395551234' => ['America/Puerto_Rico'], # 2nd Puerto Rico area code
'+81335803311' => ['Asia/Tokyo'], # geographic Japanese number
'+815012345678' => ['Asia/Tokyo'], # non-geographic Japanese number
'+18885558888' => $all_nanp_timezones, # Non-geographic NANP number.
'+80012345678' => undef, # International Toll-Free.
'+61265632114' => ['Australia/Lord_Howe'], # Lord Howe Island, Australia
'+61735353535' => ['Australia/Brisbane'], # another Australian tz
# Navajo nation in AZ observes DST but the rest of the state does not
# see https://issuetracker.google.com/issues/361465479
'+16235555678' => ['America/Phoenix'], # Phoenix, Arizona, no DST
'+19283735018' => ['America/Phoenix'], # Yuma county, Arizona, no DST
'+19282832501' => ['America/Denver','America/Phoenix'], # Navajo nation, observes DST
);
note("timezones()");
while (@tests) {
my ($num, $expect) = splice(@tests, 0, 2);
my $number = Number::Phone::Lib->new($num);
is_deeply($number->timezones(), $expect, "timezone of $num using libphonenumber");
}
# Non-stubs only return libnumberphone data.
is_deeply(Number::Phone->new('+18885558888')->timezones(), $all_nanp_timezones, 'non-stubs returns the same as the stub country implementation');
is_deeply(Number::Phone::NANP->new('+12024181440')->timezones(), ['America/New_York'], 'non-stubs returns the same as the stub country implementation');
done_testing();
|
