Merge branch 'issue239_tests' into augdat

fweber144 · Apr 20, 2022 · cf9a745 · cf9a745
2 parents d49a6cb + 4c2fb3c
commit cf9a745
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/tests/testthat/setup.R b/tests/testthat/setup.R
@@ -846,6 +846,15 @@ if (run_cvvs) {
     }
   }))
   success_cvvs <- !sapply(cvvss, inherits, "try-error")
+  err_ok <- sapply(cvvss[!success_cvvs], function(cvvs_err) {
+    attr(cvvs_err, "condition")$message ==
+      "Not enough (non-NA) data to do anything meaningful"
+  })
+  expect_true(
+    all(err_ok),
+    info = paste("Unexpected error for",
+                 paste(names(cvvss[!success_cvvs])[!err_ok], collapse = ", "))
+  )
   cvvss <- cvvss[success_cvvs]
   args_cvvs <- args_cvvs[success_cvvs]
 }