Update tests/testthat/test_01-inputdata.R

Co-authored-by: orichters <[email protected]>
dklein-pik · Oct 14, 2024 · eadb13a · eadb13a
1 parent 17e7276
commit eadb13a
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/tests/testthat/test_01-inputdata.R b/tests/testthat/test_01-inputdata.R
@@ -11,8 +11,9 @@ test_that("Are all input data files present?", {
     w <- capture_warnings(updateInputData(cfg = gms::readDefaultConfig("../.."), remindPath = "../.."))
     # ignore warning about missing historical.mif, raise warning if there were other wargnings
     ignore <- "File historical.mif seems to be missing!"
-    if (length(w) > 0 && !w %in% ignore) {
-      warning(paste0("'updateInputData' raised the following wargnings\n", paste(w, collapse = "\n")))
+    w <- setdiff(w, ignore)
+    if (length(w) > 0) {
+      warning(paste0("'updateInputData' raised the following warnings\n", paste(w, collapse = "\n")))
     }
     gms::model_unlock(lockID)
     missinginput <- missingInputData(path = "../..")