1test_that("translation domain correctly loaded", { 2 load_all(test_path("testTranslations")) 3 withr::defer(unload("testTranslations")) 4 5 withr::local_envvar(LANGUAGE = "fr") 6 expect_equal(hello(), "Bonjour") 7}) 8