tests/testthat/test_NMreadSection.R

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

context("NMreadSection")




test_that("basic",{

    fileRef <- "testReference/NMreadSection_01.rds"
    
    section <- "input"
    res <- NMreadSection(file="testData/nonmem/xgxr011.mod"
                        ,section=section
                         )
    
    expect_equal_to_reference(res,fileRef,version=2)

    if(F){
        ref <- readRDS(fileRef)
        ref
        res
    }
    
})

test_that("basic - data section",{

    fileRef <- "testReference/NMreadSection_02.rds"

    ## file.lst <- "../../inst/examples/nonmem/run001.lst"
    file.lst <- "testData/nonmem/xgxr001.lst"

    res1 <- NMreadSection(file=file.lst,section="DATA")
    ## res1 <- NMreadSection(file=file.lst,section="DATA",debug=T)

    expect_equal_to_reference(res1,fileRef,version=2)
})


test_that("All sections",{

    fileRef <- "testReference/NMreadSection_03.rds"
    
    res <- NMreadSection(file="testData/nonmem/xgxr011.mod")
    
    expect_equal_to_reference(res,fileRef,version=2)

    if(F){
        ref <- readRDS(fileRef)
        expect_equal(ref,
                     res)
        
        names(ref)
        names(res)
    }
    

})

test_that("Section not found",{

    section <- "simulation"
    res <- NMreadSection(file="testData/nonmem/xgxr011.mod"
                        ,section=section
                         )
    
    expect_null(res)

})

test_that("HEADER",{

    fileRef <- "testReference/NMreadSection_04.rds"
    
    ## res <- NMreadSection(file="testData/nonmem/xgxr011.mod",section="header")
    res <- NMreadSection(file="testData/nonmem/xgxr011.mod")["HEADER"]
    ## res2 <- NMreadSection(file="testData/nonmem/xgxr011.mod",section="header",simplify=F)
    ## res <- NMreadSection(file="testData/nonmem/xgxr011.mod")[["HEADER"]]
    ## all <- NMreadSection(file="testData/nonmem/xgxr011.mod")
    ## all <- NMreadSection(file="testData/nonmem/xgxr011.mod",return="idx")
    ## all <- NMreadSection(file="testData/nonmem/xgxr011.mod")

    
    expect_equal_to_reference(res,fileRef,version=2)
    if(F){
        ref <- readRDS(fileRef)
        ref
        res
    }

})


test_that("simplify=FALSE",{

    fileRef <- "testReference/NMreadSection_05.rds"
    
    res.F <- NMreadSection(file="testData/nonmem/xgxr011.mod",section="DATA",simplify=F)
    res.T <- NMreadSection(file="testData/nonmem/xgxr011.mod",section="DATA",simplify=T)
    res <- list(res.F=res.F,
                res.T=res.T)
    expect_equal_to_reference(res,fileRef,version=2)
    if(F){
        ref <- readRDS(fileRef)
        ref
        res
    }

})





## all.text <- NMreadSection(file="testData/nonmem/xgxr011.mod")
## all.idx <- NMreadSection(file="testData/nonmem/xgxr011.mod",return="idx")

## all.text
## length(all.text)
## length(all.idx)
## NMreadSection(file="testData/nonmem/xgxr011.mod",section="header")
## NMreadSection(file="testData/nonmem/xgxr042.mod")
## NMreadSection(file="testData/nonmem/xgxr042.mod",keep.name=F)