tests/testthat/test_NMreplaceDataFile.R

In NMdata: Preparation, Checking and Post-Processing Data for PK/PD Modeling

library(data.table)

context("NMreplaceDataFile")

test_that("basic",{

    fileRef <- "testReference/NMreplaceDataFile_01.rds"
    
    outfile <- "testOutput/NMreplaceDataFile_01.mod"

    NMreplaceDataFile(files="testData/nonmem/xgxr011.mod"
                     ,path.data="this/data.csv"
                      ,newfile=outfile
                      )
    res <- readLines(outfile)

    expect_equal_to_reference(res,fileRef,version=2)


})


test_that("missing newfile",{

    fileRef <- "testReference/NMreplaceDataFile_02.rds"
    
    outfile <- "testOutput/NMreplaceDataFile_02.mod"
    file.orig <- "testData/nonmem/xgxr011.mod"
    file.copy(file.orig,outfile,overwrite=TRUE)

    
    res <- NMreplaceDataFile(files=outfile
                     ,path.data="this/data.csv"
                      )

    ##  expect_equal(res[[1]],readRDS(fileRef)[[1]])
    expect_equal_to_reference(res,fileRef,version=2)

}
)