From 49a7e20bb842809c91130b90058c19e2e3d7aad8 Mon Sep 17 00:00:00 2001
From: davidsantiagoquevedo <davidsantiagoquevedo@gmail.com>
Date: Sat, 24 Feb 2024 13:26:34 +0100
Subject: [PATCH] feat: test for non-integer values

---
 tests/testthat/test-get_age_group.R | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/tests/testthat/test-get_age_group.R b/tests/testthat/test-get_age_group.R
index 71ea0a67..9c136043 100644
--- 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