tests/testthat/test-capName.R

In LimaRAF/plantR: Managing Species Records from Biological Collections

test_that("capName works", {
  expect_equal(capName("gentry"), "Gentry")
  expect_equal(capName("GENTRY"), "Gentry")
  expect_equal(capName("saint-hilaire"), "Saint-Hilaire")
  expect_equal(capName("leitao filho"), "Leitao Filho")
  expect_equal(capName("o'brien"), "O'Brien")
  expect_equal(capName("john MacDonald"), "John MacDonald")
})