feat: test for non-integer values

epiverse-trace · Feb 24, 2024 · 49a7e20 · 49a7e20
1 parent 3a12fe3
commit 49a7e20
Showing 1 changed file with 11 additions and 0 deletions.
diff --git a/tests/testthat/test-get_age_group.R b/tests/testthat/test-get_age_group.R
@@ -110,6 +110,17 @@ test_that("`get_age_groups`: Input checking", {
     regexp = "Assertion on 'min_val' failed: May not be NA"
   )
 
+  # non-integer values passed
+  expect_error(
+    get_age_group(
+      data = cohortdata,
+      col_age = "age",
+      min_val = 0.7,
+      max_val = 1,
+      step = 1
+    )
+  )
+
   # step size is larger than difference in age limits
   # maximum age is less than the minimum age
   max_age <- 80