Permalink
Browse files

Netherlands Antilles; UK data

  • Loading branch information...
1 parent 7df344a commit 94635399907912acec54f2dbe2ccec3d165290e1 @DrHyde DrHyde committed Jul 8, 2011
View
@@ -1,18 +1,20 @@
-2011-XX-XX 1.8XXX Numerous small changes in Number::Phone::Country
+2011-07-08 1.8002 New UK allocations;
+ Numerous small changes in Number::Phone::Country
Tidying number ranges in Mayotte;
Minor bugfix for Mayotte;
Gibraltar can't be called in the Spanish
numbering scheme any more;
Ellipsos satcomms have gone away;
Kazakhstan has +76 and +77 instead of random
bits all over +7;
- Dominican Republic now has +1 849;
Western Sahara number ranges identified;
Kosovo (no ISO3166 country code yet, so I'm
temporarily using KOS, as used by the UN
Development Programme, see
wikipedia://List_of_UNDP_country_codes);
- Canada and the US have some new codes
+ Canada and the US have some new codes;
+ Netherlands Antilles are splitting up;
+ Dominican Republic now has +1 849;
2011-05-20 1.8001 New UK allocations
View
@@ -7,7 +7,7 @@ use Scalar::Util 'blessed';
use Number::Phone::Country qw(noexport uk);
use Number::Phone::StubCountry;
-our $VERSION = 1.8001;
+our $VERSION = 1.8002;
my @is_methods = qw(
is_valid is_allocated is_in_use
@@ -92,7 +92,10 @@ sub import {
55 => 'BR', 56 => 'CL', 57 => 'CO', 58 => 'VE',
590 => 'GP', 591 => 'BO', 592 => 'GY', 593 => 'EC',
594 => 'GF', 595 => 'PY', 596 => 'MQ', 597 => 'SR',
- 598 => 'UY', 599 => 'AN',
+ 598 => 'UY',
+ 599 => 'BQ',
+ 5995 => 'SX', # will move to +1 721 in Sep 2011
+ 5999 => 'CW',
# 6* checked against wtng.info 2011-07-08
60 => 'MY',
@@ -174,7 +177,7 @@ sub import {
'AI' => [ '1', '011', '1'], # Anguilla
'AL' => ['355', '00', '0'], # Albania
'AM' => ['374', '00', '8'], # Armenia
- 'AN' => ['599', '00', '0'], # Netherlands Antilles
+ 'BQ' => ['599', '00', '0'], # Bonaire, Saint Eustatius and Saba (ex-Netherland Antilles)
'AO' => ['244', '00', '0'], # Angola
'AQ' => ['672', undef, undef], # Antarctica
'AR' => [ '54', '00', '0'], # Argentina
View
Binary file not shown.
View
@@ -102,7 +102,7 @@ print 'not ' unless($number->is_network_service());
print 'ok '.(++$test)." network service numbers correctly identified\n";
$number = Number::Phone->new('+448450033845');
-print 'not ' unless($number->operator() eq 'Edge Telecom Ltd');
+print 'not ' unless($number->operator() eq 'Edge Telecom Limited');
print 'ok '.(++$test)." operators correctly identified\n";
print '# '.$number->operator()."\n";
@@ -1,6 +1,6 @@
#!/usr/bin/perl -w
-use Test::More tests => 297;
+use Test::More tests => 299;
use Number::Phone::Country;
@@ -224,7 +224,9 @@ ok(phone2country('+595123') eq 'PY', '+595 is PY');
ok(phone2country('+596123') eq 'MQ', '+596 is MQ');
ok(phone2country('+597123') eq 'SR', '+597 is SR');
ok(phone2country('+598123') eq 'UY', '+598 is UY');
-ok(phone2country('+599123') eq 'AN', '+599 is AN');
+ok(phone2country('+599123') eq 'BQ', '+599 is BQ');
+ok(phone2country('+5995123') eq 'SX', '+5995 is SX');
+ok(phone2country('+5999123') eq 'CW', '+5990 is CW');
ok(phone2country('+60123') eq 'MY', '+60 is MY');
ok(phone2country('+61123') eq 'AU', '+61 is AU');
ok(phone2country('+6189162123') eq 'CC', '+6189162 is CC');
@@ -39,7 +39,7 @@ AG:1:011:1
AI:1:011:1
AL:355:00:0
AM:374:00:8
-AN:599:00:0
+BQ:599:00:0
AO:244:00:0
AQ:672::
AR:54:00:0

0 comments on commit 9463539

Please sign in to comment.