tests/testthat/test_genPhiFile.R

In NMsim: Seamless 'Nonmem' Simulation Platform

context("genPhiFile")

library(data.table)
data.table::setDTthreads(1) 


NMdataConf(reset=T)
test_that("Basic",{
    fileRef <- "testReference/genPhiFile_01.rds"
    etas <- data.table(ID=1:2,ETA1=c(.01,-.2))
    file.phi <- "testOutput/genPhiFile_out_01.phi"
    if(!dir.exists(dirname(file.phi))) dir.create(dirname(file.phi))
    genPhiFile(etas,file=file.phi)
    readLines(file.phi)
    res <- NMreadPhi(file.phi)
    expect_equal_to_reference(res,fileRef)

})