tests/testthat/test_mappings.R

In rOpenGov/bibliographica: Bibliographic Data Analysis

context("Mapping tables")

test_that("Region to country mappings are correct", {
  expect_equal(as.character(get_country("Berlin")), "Germany")
  expect_equal(as.character(get_country("Altmore")), "Northern Ireland")  
  expect_equal(as.character(get_country(c("Berlin", "Munich", "Amsterdam"))[[3]]), "Netherlands")  
})


test_that("Country mappings are not ambiguous", {
  expect_equal(length(test_ambiguous_country()), 0)
  expect_equal(length(test_ambiguous_place()), 0)    
})