tests/testthat/test-regex-special.R

In altaf-ali/countrycode_gw: Convert Country Names and Country Codes

context('Special cases of regex')

iso3c_of <- function(name) countrycode(name, 'country.name', 'iso3c', warn = TRUE)
no_warn_iso3c_of <- function(name) countrycode(name, 'country.name', 'iso3c', warn = FALSE)
cowc_of <- function(name) countrycode(name, 'country.name', 'cowc', warn = TRUE)
no_warn_cowc_of <- function(name) countrycode(name, 'country.name', 'cowc', warn = FALSE)

test_that('accented characters are properly matched', {
    #expect_equal(iso3c_of('\u00C5land Islands'), 'ALA')
    expect_equal(iso3c_of('Saint Barth\u00E9lemy'), 'BLM')
    expect_equal(iso3c_of('C\u00F4te d\'Ivoire'), 'CIV')
    expect_equal(iso3c_of('Cura\u00E7ao'), 'CUW')
    expect_equal(iso3c_of('R\u00E9union'), 'REU')
    expect_equal(iso3c_of('S\u00E3o Tom\u00E9 and Pr\u00EDncipe'), 'STP')
})

test_that('some official country names are properly matched', {
    expect_equal(iso3c_of('democratic people\'s republic of korea'), 'PRK')
    expect_equal(iso3c_of('DPR Korea'), 'PRK')
    expect_equal(iso3c_of('Korea, DPR'), 'PRK')
    expect_equal(iso3c_of('Speech by the Governor of the Bank of Korea'), 'KOR')
    expect_equal(iso3c_of('republic of guinea'), 'GIN')
    expect_equal(iso3c_of('hellenic republic'), 'GRC')
    expect_equal(iso3c_of('united mexican states'), 'MEX')
    expect_equal(iso3c_of('republic of the union of myanmar'), 'MMR')
    expect_equal(iso3c_of('independent state of samoa'), 'WSM')
    expect_equal(iso3c_of('republic of south sudan'), 'SSD')
    expect_equal(iso3c_of('swiss confederation'), 'CHE')
})

test_that('some unofficial country names are properly matched', {
    expect_equal(iso3c_of('dprk'), 'PRK')
    expect_equal(iso3c_of('byelorussia'), 'BLR')
    expect_equal(iso3c_of('british honduras'), 'BLZ')
    expect_equal(iso3c_of('bechuanaland'), 'BWA')
    expect_equal(iso3c_of('nyasaland'), 'MWI')
    expect_equal(iso3c_of('british east africa'), 'KEN')
    expect_equal(iso3c_of('east africa protectorate'), 'KEN')
    expect_equal(iso3c_of('east pakistan'), 'BGD')
    expect_equal(iso3c_of('chinese taipei'), 'TWN')
    expect_equal(iso3c_of('taipei'), 'TWN')
})

test_that('former Soviet republics are properly matched', {
    expect_equal(iso3c_of('russian soviet federative socialist republic'), 'RUS')
    expect_equal(iso3c_of('ukrainian soviet socialist republic'), 'UKR')
    expect_equal(iso3c_of('uzbek soviet socialist republic'), 'UZB')
    expect_equal(iso3c_of('kazakh soviet socialist republic'), 'KAZ')
    expect_equal(iso3c_of('byelorussian soviet socialist republic'), 'BLR')
    expect_equal(iso3c_of('azerbaijan soviet socialist republic'), 'AZE')
    expect_equal(iso3c_of('georgian soviet socialist republic'), 'GEO')
    expect_equal(iso3c_of('tajik soviet socialist republic'), 'TJK')
    expect_equal(iso3c_of('moldovian soviet socialist republic'), 'MDA')
    expect_equal(iso3c_of('kirghiz soviet socialist republic'), 'KGZ')
    expect_equal(iso3c_of('lithuanian soviet socialist republic'), 'LTU')
    expect_equal(iso3c_of('turkmen soviet socialist republic'), 'TKM')
    expect_equal(iso3c_of('armenian soviet socialist republic'), 'ARM')
    expect_equal(iso3c_of('latvian soviet socialist republic'), 'LVA')
    expect_equal(iso3c_of('estonian soviet socialist republic'), 'EST')
})

test_that('some common abbreviations are properly matched', {
    expect_equal(iso3c_of('u.s.'), 'USA')
    expect_equal(iso3c_of('u.s.a.'), 'USA')
    expect_equal(iso3c_of('u.k.'), 'GBR')
    expect_equal(iso3c_of('fyrom'), 'MKD')
    expect_equal(iso3c_of('united arab em.'), 'ARE')
    expect_equal(no_warn_iso3c_of('united arab republic'), NA_character_) # Doesn't have in iso3c
    expect_equal(iso3c_of('emirates'), 'ARE')
    expect_equal(iso3c_of('uae'), 'ARE')
    expect_equal(iso3c_of('u.a.e.'), 'ARE')
})

test_that('the Netherlands Antilles are all matched correctly', {
    # The codes for the Netherlands Antilles are deleted from ISO 3166-1 and
    # transitionally reserved for a period of 50 years:
    # https://www.iso.org/news/2010/12/Ref1383.html
    expect_equal(no_warn_iso3c_of('netherlands antilles'), NA_character_)                   # A former country
    expect_equal(no_warn_iso3c_of('dutch antilles'), NA_character_)                         # A former country
    expect_equal(no_warn_iso3c_of('dutch caribbean'), NA_character_)                        # The meaning of this unit is ambiguous
    expect_equal(iso3c_of('aruba'), 'ABW')                                                  # A country of the Netherlands
    expect_equal(iso3c_of('curaçao'), 'CUW')                                                # A country of the Netherlands
    expect_equal(iso3c_of('sint maarten'), 'SXM')                                           # A country of the Netherlands
    expect_equal(iso3c_of('collectivity of saint martin'), 'MAF')                           # A French overseas collectivity
    expect_equal(iso3c_of('saint martin (french part)'), 'MAF')                             # A French overseas collectivity
    expect_equal(no_warn_iso3c_of('saint martin'), NA_character_)                           # The meaning of this unit is ambiguous
    expect_equal(no_warn_iso3c_of('st. martin'), NA_character_)                             # The meaning of this unit is ambiguous
    expect_equal(no_warn_iso3c_of('saint-martin'), NA_character_)                           # An island, not a political entity
    expect_equal(no_warn_iso3c_of('St-Martin / Sint Maarten'), NA_character_)               # An island, not a political entity
    expect_equal(no_warn_iso3c_of('St-Martin / St-Maarten'), NA_character_)                 # An island, not a political entity
    expect_equal(no_warn_iso3c_of('St. Martin and St. Maarten'), NA_character_)             # An island, not a political entity
    expect_equal(no_warn_iso3c_of('St Maarten – St Martin'), NA_character_)                 # An island, not a political entity
    expect_equal(iso3c_of('bonaire, saba, and sint eustatius'), 'BES')                     # Municipalities of the Netherlands
    expect_equal(iso3c_of('bes islands'), 'BES')                                           # Municipalities of the Netherlands
    expect_equal(iso3c_of('caribbean netherlands'), 'BES')                                 # Municipalities of the Netherlands
    expect_equal(no_warn_iso3c_of('greater antilles'), NA_character_)                       # Not a political entity
    expect_equal(no_warn_iso3c_of('lesser antilles'), NA_character_)                        # Not a political entity
    expect_equal(no_warn_iso3c_of('abc islands'), NA_character_)                            # Not a political entity
    expect_equal(no_warn_iso3c_of('leeward islands'), NA_character_)                        # Not a political entity
    expect_equal(no_warn_iso3c_of('leeward antilles'), NA_character_)                       # Not a political entity
    expect_equal(no_warn_iso3c_of('aruba, bonaire, and curaçao'), NA_character_)            # Not a political entity
    expect_equal(no_warn_iso3c_of('sss islands'), NA_character_)                            # Not a political entity
    expect_equal(no_warn_iso3c_of('windward islands'), NA_character_)                       # Not a political entity
    expect_equal(no_warn_iso3c_of('sint maarten, saba, and sint eustatius'), NA_character_) # Not a political entity
})

test_that('the two Congos are distinguished', {
    expect_equal(iso3c_of('republic of congo'), 'COG')
    expect_equal(iso3c_of('republic of the congo'), 'COG')
    expect_equal(iso3c_of('congo, republic of the'), 'COG')
    expect_equal(iso3c_of('congo, republic'), 'COG')
    expect_equal(iso3c_of('congo, rep.'), 'COG')
    expect_equal(iso3c_of('congo-brazzaville'), 'COG')
    expect_equal(iso3c_of('french congo'), 'COG')
    expect_equal(no_warn_iso3c_of('ROC'), NA_character_)   # Could be Taiwan or Congo
    expect_equal(iso3c_of('democratic republic of the congo'), 'COD')
    expect_equal(iso3c_of('congo, democratic republic of the'), 'COD')
    expect_equal(iso3c_of('dem rep of the congo'), 'COD')
    expect_equal(iso3c_of('the democratic republic of congo'), 'COD')
    expect_equal(iso3c_of('congo, dem. rep.'), 'COD')
    expect_equal(iso3c_of('dr congo'), 'COD')
    expect_equal(iso3c_of('drc'), 'COD')
    expect_equal(iso3c_of('droc'), 'COD')
    expect_equal(iso3c_of('rdc'), 'COD')
    expect_equal(iso3c_of('congo-kinshasa'), 'COD')
    expect_equal(iso3c_of('congo-zaire'), 'COD')
    expect_equal(iso3c_of('zaire'), 'COD')
    expect_equal(iso3c_of('belgian congo'), 'COD')
    expect_equal(iso3c_of('republic of the congo-léopoldville'), 'COD')
    expect_equal(iso3c_of('congo free state'), 'COD')
})

test_that('China and Taiwan', {
    expect_equal(iso3c_of("People's Republic of China"), 'CHN')
    expect_equal(iso3c_of("China, People's Republic"), 'CHN')
    expect_equal(iso3c_of("China"), 'CHN')
    expect_equal(iso3c_of('Republic of China'), 'TWN')
    expect_false(iso3c_of('Taiwan, Province of China') == 'CHN')
    expect_false(iso3c_of('Taiwan, China') == 'CHN')
    expect_false(iso3c_of('Hong Kong, China') == 'CHN')
    expect_false(iso3c_of('Macau, China') == 'CHN')
})

test_that('the four Yemens are distinguished', {
    expect_equal(cowc_of('yemen'), 'YEM')
    expect_equal(cowc_of('republic of yemen'), 'YEM')
    expect_equal(cowc_of('yemen arab republic'), 'YAR')
    expect_equal(cowc_of('north yemen'), 'YAR')
    expect_equal(cowc_of('yemen (sana\'a)'), 'YAR')
    expect_equal(cowc_of('yemen people\'s republic'), 'YPR')
    expect_equal(cowc_of('people\'s democratic republic of yemen'), 'YPR')
    expect_equal(cowc_of('south yemen'), 'YPR')
    expect_equal(cowc_of('democratic yemen'), 'YPR')
    expect_equal(cowc_of('yemen (aden)'), 'YPR')
    expect_equal(no_warn_cowc_of('democratic republic of yemen'), NA_character_)
})

test_that('some old and colonial names are matched', {
    expect_equal(iso3c_of('gold coast'), 'GHA')
    expect_equal(iso3c_of('upper volta'), 'BFA')
    expect_equal(iso3c_of('portuguese guinea'), 'GNB')
    expect_equal(iso3c_of('basutoland'), 'LSO')
    expect_equal(iso3c_of('northern rhodesia'), 'ZMB')
    expect_equal(iso3c_of('southern rhodesia'), 'ZWE')
    expect_equal(iso3c_of('rhodesia'), 'ZWE')
    expect_equal(iso3c_of('the argentine'), 'ARG')
    expect_equal(iso3c_of('dutch guiana'), 'SUR')
    expect_equal(iso3c_of('bohemia'), 'CZE')
    expect_equal(iso3c_of('czechia'), 'CZE')
    expect_equal(iso3c_of('french republic'), 'FRA')
    expect_equal(iso3c_of('gaul'), 'FRA')
    expect_equal(iso3c_of('hellas'), 'GRC')
    expect_equal(iso3c_of('bessarabia'), 'MDA')
    expect_equal(iso3c_of('bassarabia'), 'MDA')
    expect_equal(iso3c_of('rumania'), 'ROU')
    expect_equal(iso3c_of('roumania'), 'ROU')
    expect_equal(iso3c_of('mesopotamia'), 'IRQ')
    expect_equal(iso3c_of('trucial states'), 'OMN')
    expect_equal(iso3c_of('formosa'), 'TWN')
    expect_equal(iso3c_of('new hebrides'), 'VUT')
})

test_that('Micronesia != Federated States of Micronesia', {
    expect_equal(no_warn_iso3c_of('Micronesia'), NA_character_)
    expect_equal(iso3c_of('Federated States of Micronesia'), 'FSM')
    expect_equal(iso3c_of('Micronesia, Federated States of'), 'FSM')
    expect_equal(iso3c_of('Micronesia (Federated States of)'), 'FSM')
})

test_that('South Africa', {
    expect_equal(no_warn_iso3c_of('Southern Africa'), NA_character_)
    expect_equal(iso3c_of('South Africa'), 'ZAF')
    expect_equal(iso3c_of('South-Africa'), 'ZAF')
    #expect_equal(iso3c_of('S.Africa'), 'ZAF')
    #expect_equal(iso3c_of('S. Africa'), 'ZAF')
})

test_that('some weird cases are matched', {
    expect_equal(iso3c_of('France, Martinique'), 'MTQ')
    expect_equal(iso3c_of('Martinique, France'), 'MTQ')
})

test_that('Northern Ireland is not Ireland', {
    expect_equal(no_warn_iso3c_of('Northern Ireland'), NA_character_)
    expect_equal(iso3c_of('Ireland'), 'IRL')
})