tests/testthat/test-show-locales.R

test_that("show_locales returns a dataframe of locale codes", {
  x <- show_locales()

  expect_s3_class(x, "data.frame")
  expect_named(x, "locale")
  expect_gt(nrow(x), 0)
  expect_false(any(grepl("_", x$locale)))
})

Try the countryscales package in your browser

Any scripts or data that you put into this service are public.

countryscales documentation built on Sept. 29, 2026, 5:09 p.m.