adjusting tests

NMautoverse · Jan 17, 2025 · 3c2b7ca · 3c2b7ca
1 parent 38425b4
commit 3c2b7ca
Show file tree

Hide file tree

Showing 4 changed files with 3 additions and 3 deletions.
diff --git a/tests/testthat/testData/nonmem/xgxr133.mod b/tests/testthat/testData/nonmem/xgxr133.mod
@@ -49,7 +49,7 @@ $THETA  (.1)             ; 1 : LTVKA ; Absorption rate [1/h] ; log
 $THETA  (3)             ; 2 : LTVV2 ;  Central volume [L] ; log
 $THETA  (1)             ; 3 : LTVCL ; Clearance [L/h] ; log
 $THETA  (4)             ; 4 : LTVV3 ; Peripheral volume [L] ; log
-$THETA  (-1)             ; 5 : LTVQ ; Intercomparmental clearance [L/h] ; log
+$THETA  (-10,-1)             ; 5 : LTVQ ; Intercomparmental clearance [L/h] ; log
 $THETA .1              ; 6 : AGEEFF ; Age effect on clearance []; log
 
 $OMEGA 0 FIX ; 1 : BSV.KA ; KA Between-subject variability

diff --git a/tests/testthat/testReference/NMreadInits_02.rds b/tests/testthat/testReference/NMreadInits_02.rds
diff --git a/tests/testthat/testReference/NMreadInits_03.rds b/tests/testthat/testReference/NMreadInits_03.rds
diff --git a/tests/testthat/test_NMreadInits.R b/tests/testthat/test_NMreadInits.R
@@ -11,7 +11,7 @@ test_that("basic",{
     lines <- readLines(file.mod)
     res1 <- NMreadInits(lines=lines,return="all")
 
-    res1$lines[grepl("^ +$",text.before),text.before:=""]
+    ## res1$lines[grepl("^ +$",text.before),text.before:=""]
 
 ## cat(paste(res1$lines$text.before,collapse=":"),"\n")
 ## cat(paste(readRDS(fileRef)$lines$text.before,collapse=":"),"\n")
@@ -42,7 +42,7 @@ $THETA
 (0,0.1) ; THE1      - 30) 1st theta
  (0,4.2) ; THE2        - 31) 2nd theta
 $OMEGA  0.08   ;    IIV.TH1  ; 1  ;IIV
- $OMEGA  BLOCK(1)
+$OMEGA  BLOCK(1)
  0.547465  ; IOV.TH1  ; 2 ;IOV
 $OMEGA  BLOCK(1) SAME
 $OMEGA  BLOCK(1) SAME")