debugging tests

NMautoverse · Jan 16, 2025 · 9b5fccd · 9b5fccd
1 parent f07cb4c
commit 9b5fccd
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 3 deletions.
diff --git a/tests/testthat/testReference/NMreadInits_01.rds b/tests/testthat/testReference/NMreadInits_01.rds
diff --git a/tests/testthat/test_NMreadInits.R b/tests/testthat/test_NMreadInits.R
@@ -6,13 +6,15 @@ test_that("basic",{
     file.mod <- "testData/nonmem/xgxr032.mod"
 
     NMdataConf(reset=T)
-    ## NMdataConf(as.fun="data.table")
+    NMdataConf(as.fun="data.table")
 
     lines <- readLines(file.mod)
     res1 <- NMreadInits(lines=lines,return="all")
 
-cat(paste(res1$lines$text.before,collapse=":"),"\n")
-cat(paste(readRDS(fileRef)$lines$text.before,collapse=":"),"\n")
+res1$lines[grepl("^ +$",text.before),text.before:=""]
+
+## cat(paste(res1$lines$text.before,collapse=":"),"\n")
+## cat(paste(readRDS(fileRef)$lines$text.before,collapse=":"),"\n")
 
     expect_equal_to_reference(res1,fileRef)