Add test for uncontrolled failure scenario

Bisaloo · Bisaloo · commit 80f57ea3b17e · 2025-02-11T11:24:14.000+01:00
Identified by @adamkucharski
diff --git a/tests/testthat/test-check_input_data.R b/tests/testthat/test-check_input_data.R
@@ -0,0 +1,6 @@
+test_that("early input validation error doesn't cause uncontrolled failure", {
+  
+  bad_names_df <- dplyr::rename(ebola1976, dates=date)
+  
+  cfr_static(bad_names_df)
+})
