tests/testthat/test-external-models.R

In nonmem2rx: Converts 'NONMEM' Models to 'rxode2'

.nonmem2rx <- function(..., save=FALSE) {
  suppressWarnings(suppressMessages(nonmem2rx(..., save=FALSE)))
}

withr::with_options(list(nonmem2rx.save=FALSE, nonmem2rx.load=FALSE, nonmem2rx.overwrite=FALSE),{
    skip_on_cran()
  test_that("test nonmemica models", {
    skip_if_not(requireNamespace("nonmemica", quietly = TRUE))

    m1 <- .nonmem2rx(system.file("project/model/1001/1001.ctl",package="nonmemica"))
    expect_length(m1$meta$validation, 4L)

    m2 <- .nonmem2rx(system.file("project/model/2001/2001.ctl",package="nonmemica"))
    expect_length(m2$meta$validation, 4L)

    m3<- .nonmem2rx(system.file("project/model/2002/2002.ctl",package="nonmemica"))
    expect_length(m3$meta$validation, 4L)

    m4 <- .nonmem2rx(system.file("project/model/2003/2003.ctl",package="nonmemica"))
    expect_length(m4$meta$validation, 4L)

    m5 <- .nonmem2rx(system.file("project/model/2004/2004.ctl",package="nonmemica"))
    expect_length(m5$meta$validation, 4L)

    m6 <- .nonmem2rx(system.file("project/model/2005/2005.ctl",package="nonmemica"))
    expect_length(m6$meta$validation, 4L)

    m7 <- .nonmem2rx(system.file("project/model/2006/2006.ctl",package="nonmemica"))
    expect_length(m7$meta$validation, 4L)

    m8 <- .nonmem2rx(system.file("project/model/2007/2007.ctl",package="nonmemica"))
    expect_length(m8$meta$validation, 4L)

  })

  test_that("test nonemem2R models", {
    skip_if_not(requireNamespace("nonmem2R", quietly = TRUE))
    expect_error(.nonmem2rx(system.file("extdata/run001.mod",package="nonmem2R")), NA)
  })

  test_that("test NMdata models", {
    skip_if_not(requireNamespace("NMdata", quietly = TRUE))
    for (f in c("examples/nonmem/xgxr001.mod", "examples/nonmem/xgxr002.mod", "examples/nonmem/xgxr003.mod", "examples/nonmem/xgxr014.mod", "examples/nonmem/xgxr018.mod")) {
      .mod <- system.file(f, package="NMdata")
      if (file.exists(.mod)) {
        expect_error(.nonmem2rx(.mod), NA)
      }
    }
  })
})