tests/testthat/test_countrify.R

In dnanto/neogeonames: New GeoNames Data Package and Functions in R

context("Test expected countrify results")

test_that(
  "countrify throws error for missing query",
  expect_error(countrify())
)

test_that(
  "countrify throws error for empty query",
  expect_error(countrify(""))
)

test_that(
  "countrify returns data frame with 0 rows on no match",
  expect_equal(countrify("#"), country[0, ])
)

test_that(
  "countrify matches to ISO 3166-1 alpha-2 code",
  expect_equal(countrify("US")$iso, "US")
)

test_that(
  "countrify matches to ISO 3166-1 alpha-3 code",
  expect_equal(countrify("USA")$iso, "US")
)

test_that("countrify matches to country name", {
  expect_equal(countrify("United States")$iso, "US")
  expect_equal(countrify("united states")$iso, "US")
  expect_equal(countrify("UNITED STATES")$iso, "US")
})

test_that("countrify matches to alternate name", {
  expect_equal(countrify("Czech Republic")$iso, "CZ")
})

test_that(
  "countrify matches to misspelled country name",
  expect_equal(countrify("Viet Nam")$iso, "VN")
)