loop test over all languages

subugoe · Dec 9, 2021 · 152f621 · 152f621
1 parent 805f5da
commit 152f621
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 2 deletions.
diff --git a/R/test-helpers.R b/R/test-helpers.R
@@ -38,6 +38,7 @@ strategies <- list(
 )
 
 #' Skipping unsupported strategies
+#' @noRd
 skip_if_strategy_unsupported <- function(strategy_name = names(strategies)) {
   strategy_name <- rlang::arg_match(strategy_name)
   if (strategy_name == "multicore" && !future::supportsMulticore()) {

diff --git a/tests/testthat/test-report.R b/tests/testthat/test-report.R
@@ -14,7 +14,14 @@ test_that("draft can be created from template", {
 })
 
 test_that("parametrised report can be rendered", {
-  expect_invisible(
-    render_report(output_file = withr::local_tempfile(), quiet = TRUE)
+  purrr::walk(
+    .x = mc_langs,
+    .f = function(x) {
+      translator <- mc_translator()
+      translator$set_translation_language(x)
+      expect_invisible(
+        render_report(output_file = withr::local_tempfile(), quiet = TRUE)
+      )
+    }
   )
 })