54_number-phone-country-prefix.t

#!/usr/bin/env perl
#
# test the prefix codes data.
#

use strict;

use lib 't/inc';
use fatalwarnings;

use Test::More;

END { done_testing(); }

use_ok('Number::Phone::Country') or exit 1;

while (<DATA>) {
    chomp;

    next if /^\s*#/;
    next if /^\s*$/;

    my ($country, $prefix, $idd, $ndd) = split /:/;

    $idd = undef unless length $idd;
    $ndd = undef unless length $ndd;

    is Number::Phone::Country::country_code($country), $prefix,
       "$country code";

    is Number::Phone::Country::idd_code($country), $idd,
       "$country idd prefix";

    is Number::Phone::Country::ndd_code($country), $ndd,
       "$country ndd prefix";
}

__END__
# data format is:
# ISO code:CC:IDD:NDD
AD:376:00:
AE:971:00:0
AF:93:00:0
AG:1:011:1
AI:1:011:1
AL:355:00:0
AM:374:00:0
BQ:599:00:
AO:244:00:
AQ:672::
AR:54:00:0
AS:1:011:1
AT:43:00:0
AU:61:0011:0
AW:297:00:
AZ:994:00:0
BA:387:00:0
BB:1:011:1
BD:880:00:0
BE:32:00:0
BF:226:00:
BG:359:00:0
BH:973:00:
BI:257:00:
BJ:229:00:
BM:1:011:1
BN:673:00:
BO:591:00:0
BR:55:00:0
BS:1:011:1
BT:975:00:
BV:47:00:
BW:267:00:
BY:375:810:8
BZ:501:00:
CA:1:011:1
CC:61:0011:0
CD:243:00:0
CF:236:00:
CG:242:00:
CH:41:00:0
CI:225:00:
CK:682:00:
CL:56:00:0
CM:237:00:
CN:86:00:0
CO:57:009:09
CR:506:00:
CU:53:119:0
CV:238:0:
CX:61:0011:0
CY:357:00:
CZ:420:00:
DE:49:00:0
DJ:253:00:
DK:45:00:
DM:1:011:1
DO:1:011:1
DZ:213:00:0
EC:593:00:0
EE:372:00:
EG:20:00:0
EH:212:00:0
ER:291:00:0
ES:34:00:
ET:251:00:0
FI:358:00:0
FJ:679:00:
FK:500:00:
FM:691:00:
FO:298:00:
FR:33:00:0
GA:241:00:
GB:44:00:0
UK:44:00:0
GD:1:011:1
GE:995:00:0
GF:594:00:0
GH:233:00:0
GI:350:00:
GL:299:00:
GM:220:00:
GN:224:00:
GP:590:00:0
GQ:240:00:
GR:30:00:
GS:500:00:
GT:502:00:
GU:1:011:1
GW:245:00:
GY:592:001:
HK:852:001:
HN:504:00:
HR:385:00:0
HT:509:00:
HU:36:00:06
ID:62:001:0
IE:353:00:0
IL:972:00:0
IN:91:00:0
IO:246:00:
IQ:964:00:0
IR:98:00:0
IS:354:00:
IT:39:00:
JM:1:011:1
JO:962:00:0
JP:81:010:0
KE:254:000:0
KG:996:00:0
KH:855:001:0
KI:686:00:0
KM:269:00:
KN:1:011:1
KP:850:00:0
KR:82:001:0
KW:965:00:0
KY:1:011:1
KZ:7:810:8
LA:856:00:0
LB:961:00:0
LC:1:011:1
LI:423:00:
LK:94:00:0
LR:231:00:22
LS:266:00:0
LT:370:00:8
LU:352:00:
LV:371:00:
LY:218:00:0
MA:212:00:
MC:377:00:0
MD:373:00:0
ME:382:99:0
MG:261:00:0
MH:692:011:1
MK:389:00:0
ML:223:00:0
MM:95:00:
MN:976:001:0
MO:853:00:0
MP:1:011:1
MQ:596:00:0
MR:222:00:0
MS:1:011:1
MT:356:00:21
MU:230:00:0
MV:960:00:0
MW:265:00:
MX:52:00:01
MY:60:00:0
MZ:258:00:0
NA:264:00:0
NC:687:00:0
NE:227:00:0
NF:672:00:
NG:234:009:0
NI:505:00:0
NL:31:00:0
NO:47:00:
NP:977:00:0
NR:674:00:0
NU:683:00:0
NZ:64:00:0
OM:968:00:0
PA:507:00:0
PE:51:00:0
PF:689:00:
PG:675:05:
PH:63:00:0
PK:92:00:0
PL:48:00:0
PM:508:00:0
PN:872::
PR:1:011:1
PS:970:00:0
PT:351:00:
PW:680:011:
PY:595:002:0
QA:974:00:0
RE:262:00:0
RO:40:00:0
RS:381:99:0
RU:7:810:8
RW:250:00:0
SA:966:00:0
SB:677:00:
SC:248:00:0
SD:249:00:0
SE:46:00:0
SG:65:001:
SH:290:00:
SI:386:00:0
SJ:47:00:0
SK:421:00:0
SL:232:00:0
SM:378:00:0
SN:221:00:0
SO:252:00:
SR:597:00:
SS:211:00:0
ST:239:00:0
SV:503:00:
SY:963:00:0
SZ:268:00:
TC:1:011:1
TD:235:15:
TF:596:00:0
TG:228:00:
TH:66:001:0
TJ:992:810:8
TK:690:00:
TL:670:00:
TM:993:810:8
TN:216:00:0
TO:676:00:
TR:90:00:0
TT:1:011:1
TV:688:00:
TW:886:002:
TZ:255:000:0
UA:380:00:0
UG:256:000:0
US:1:011:1
UY:598:00:0
UZ:998:810:8
VA:379:00:
VC:1:011:1
VE:58:00:0
VG:1:011:1
VI:1:011:1
VN:84:00:0
VU:678:00:
WF:681:19:
WS:685:0:0
YE:967:00:0
YT:262:00:0
ZA:27:09:0
ZM:260:00:0
ZW:263:110:0