Improve test to try understand failure on windows

mrc-ide · Mar 15, 2024 · e5afd7b · e5afd7b
1 parent d2572fa
commit e5afd7b
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 1 deletion.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -28,6 +28,7 @@ Imports:
     dplyr (>= 1.1.0),
     duckdb (>= 0.10.0),
     eppasm (>= 0.7.1),
+    gt,
     first90 (>= 1.6.1),
     forcats,
     fs,
@@ -59,7 +60,6 @@ Suggests:
     DiagrammeR,
     covr,
     datamodelr,
-    gt,
     here,
     knitr,
     lubridate,

diff --git a/tests/testthat/test-outputs.R b/tests/testthat/test-outputs.R
@@ -242,6 +242,7 @@ test_that("summary report can be translated", {
   if (any(grepl('#translate[lang="en"]', content, fixed = TRUE))) {
     style_line <- which(grepl('#translate[lang="en"]', content,
                               fixed = TRUE))
+    expect_equal(length(style_line), 1)
     expect_equal(content[style_line + 1], "display: block;")
   } else {
     en <- "%23translate%5Blang%3D%22en%22%5D%20%7B%0Adisplay%3A%20block%3B%0A%7D"
@@ -264,6 +265,7 @@ test_that("summary report can be translated", {
   if (any(grepl('#translate[lang="fr"]', content, fixed = TRUE))) {
     style_line <- which(grepl('#translate[lang="fr"]', content,
                               fixed = TRUE))
+    expect_equal(length(style_line), 1)
     expect_equal(content[style_line + 1], "display: block;")
   } else {
     fr <- "%23translate%5Blang%3D%22fr%22%5D%20%7B%0Adisplay%3A%20block%3B%0A%7D"