use + form for tests

nlmixr2 · Sep 14, 2024 · 8b06218 · 8b06218
1 parent aab14b7
commit 8b06218
Showing 1 changed file with 13 additions and 11 deletions.
diff --git a/tests/testthat/test-omega.R b/tests/testthat/test-omega.R
@@ -1,18 +1,20 @@
 test_that("test omega", {
 
   .o <- function(omega, eq="no", len=0, reset=TRUE, unintFixed=TRUE) {
-    .Call(`_nonmem2rx_setRecord`, "$OMEGA")
-    if (reset) {
-      .clearNonmem2rx()
-      .Call(`_nonmem2rx_omeganum_reset`)
-    }
-    lapply(omega, function(o) {
-      .Call(`_nonmem2rx_trans_omega`, o, "eta", as.integer(unintFixed))
+    withr::with_options(list(lotri.plusNames=TRUE), {
+      .Call(`_nonmem2rx_setRecord`, "$OMEGA")
+      if (reset) {
+        .clearNonmem2rx()
+        .Call(`_nonmem2rx_omeganum_reset`)
+      }
+      lapply(omega, function(o) {
+        .Call(`_nonmem2rx_trans_omega`, o, "eta", as.integer(unintFixed))
+      })
+      expect_equal(.nonmem2rx$ini, eq)
+      expect_length(.nonmem2rx$etaLabel, len)
+      expect_length(.nonmem2rx$etaComment, len)
+      expect_length(.nonmem2rx$etaNonmemLabel, len)
     })
-    expect_equal(.nonmem2rx$ini, eq)
-    expect_length(.nonmem2rx$etaLabel, len)
-    expect_length(.nonmem2rx$etaComment, len)
-    expect_length(.nonmem2rx$etaNonmemLabel, len)
   }
 
   .o("1", "eta1 ~ 1", 1)