Fix failing test

pratikunterwegs · pratikunterwegs · commit 0cda0d023316 · 2026-01-20T12:18:17.000Z
diff --git a/tests/testthat/test-burden_diagnostics.R b/tests/testthat/test-burden_diagnostics.R
@@ -8,6 +8,8 @@ test_that("`validate_file_dict_template()` works", {
   dummy_data <- data.frame()
   readr::write_csv(dummy_data, file_dict)
 
+  disease <- "dummy_disease"
+
   success_msg <- glue::glue(
     "(File dictionary found at)*({file_dict})*(no action needed)"
   )

Original file line number	Diff line number	Diff line change
@@ -8,6 +8,8 @@ test_that("`validate_file_dict_template()` works", {
`8`	`8`	`dummy_data <- data.frame()`
`9`	`9`	`readr::write_csv(dummy_data, file_dict)`
`10`	`10`
	`11`	`+ disease <- "dummy_disease"`
	`12`	`+`
`11`	`13`	`success_msg <- glue::glue(`
`12`	`14`	`"(File dictionary found at)({file_dict})(no action needed)"`
`13`	`15`	`)`