Fix NONMEM expected output and test message update

nlmixr2 · Aug 11, 2024 · 216d1f3 · 216d1f3
1 parent 47cb2a3
commit 216d1f3
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 3 deletions.
diff --git a/R/nonmemNlmixr2est.R b/R/nonmemNlmixr2est.R
@@ -211,7 +211,7 @@
   if (!rxode2::rxGetControl(.ui, "run", TRUE) ||
         is.na(.cmd)) {
     .minfo("only exported NONMEM control stream/data")
-    return(invisible())
+    return(invisible(.ui))
   }
   if (!file.exists(file.path(.exportPath, .ui$nonmemXml))) {
     print(file.path(.exportPath, .ui$nonmemXml))

diff --git a/tests/testthat/test-nonmem.R b/tests/testthat/test-nonmem.R
@@ -125,6 +125,7 @@ withr::with_tempdir({
     })
 
     test_that("NONMEM dsl, full model", {
+
       one.cmt <- function() {
         ini({
           tka <- 0.45 ; label("Ka")
@@ -145,16 +146,18 @@ withr::with_tempdir({
           cp ~ add(add.sd)
         })
       }
+
       expect_message(
-        ui <-
           nlmixr(
             one.cmt, data=nlmixr2data::Oral_1CPT, est="nonmem",
             control=nonmemControl(runCommand=NA)
           ),
-        regexp="not running NONMEM"
+        regexp="only exported NONMEM"
       )
+
       expect_s3_class(ui, "rxUi")
       expect_type(ui$nonmemModel, "character")
+
       expect_equal(
         ui$nonmemModel,
         paste(
@@ -223,6 +226,7 @@ withr::with_tempdir({
           collapse="\n"
         )
       )
+
     })
 
     # pk.turnover.emax3 <- function() {