tests/testthat/test-trans_locale.R

In translated: Simple and Robust Translation System

test_that("passing a locale sets it", {
  trans_locale("pl_PL")
  expect_equal(getOption("translated_locale"), "pl_PL")
})

test_that("not passing anything allows accessing currently set locale", {
  expect_equal(trans_locale(), "pl_PL")
})