fix error from copilot ... add little test.

openpharma · Oct 10, 2024 · 0ca199c · 0ca199c
1 parent 051ae3d
commit 0ca199c
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 1 deletion.
diff --git a/R/utils.R b/R/utils.R
@@ -533,7 +533,7 @@ h_tmb_version_sufficient <- function() {
   # we can check like this:
   tmb_config <- TMB::config(DLL = "mmrm")
   tape_deterministic <- tmb_config$tmbad_deterministic_hash
-  !is_null(tape_deterministic)
+  !is.null(tape_deterministic)
 }
 
 #' Warn if TMB is Configured to Use Non-Deterministic Hash for Tape Optimizer

diff --git a/tests/testthat/test-utils.R b/tests/testthat/test-utils.R
@@ -323,6 +323,13 @@ test_that("h_drop_levels works as expected", {
   )
 })
 
+# h_tmb_version_sufficient ----
+
+test_that("h_tmb_version_sufficient works as expected", {
+  skip_if(utils::packageVersion("TMB") < "1.9.15")
+  expect_true(h_tmb_version_sufficient())
+})
+
 # h_tmb_warn_non_deterministic ----
 
 test_that("h_tmb_warn_non_deterministic works as expected", {