tests/testthat/test_NMreadShk.R

context("NMreadShk")

NMdataConf(reset=TRUE)

test_that("Basic",{
    fileRef <- "testReference/NMreadShk_01.rds"
    file.mod <- "testData/nonmem/xgxr032.mod"

    res <- NMreadShk(file.mod)

    expect_equal_to_reference(res,fileRef)

    ref <- readRDS(fileRef)
    ref
    res
})
philipdelff/NMdata documentation built on June 13, 2025, 6:28 a.m.