tests/testthat/tests_translate.R

In choisy/dictionary: Dictionary of South East Asia Admin1, Admin2 and Admin3 Names

context("`translate`")

test_that("Test `translate` returns the correct output", {

  vect <- translate(c("AnGiang", "HaNoi"), country = "Vietnam", level = 1)
  testthat::expect_equal(unique(vect),  c("An Giang", "Ha Noi"))

  vect <- translate(c("AnGiang", "HaNoi"), vn_admin1)
  testthat::expect_equal(unique(vect),  c("An Giang", "Ha Noi"))

  testthat::expect_error(translate(c("AnGiang", "HaNoi"), country = "Vietnam"))
  testthat::expect_error(
    translate(c("AnGiang", "HaNoi"), country = "France", level = 1))
})