tests/testthat/test-country-names.R

test_that("prettyc() works", {

  xin <- c("Congo, Democratic Republic of (Zaire)",
           "Vietnam (Annam/Cochin China/Tonkin)",
           "Yemen, People's Republic of")
  xout <- c("DR Congo",
            "Vietnam",
            "South Yemen")
  expect_equal(prettyc(xin), xout)

})
andybega/states documentation built on Sept. 11, 2023, 4:04 p.m.