context("NMreadCov")

test_that("basic",{

    fileRef <- "testReference/NMreadCov_01.rds"
    file.cov <- "testData/nonmem/estim_debug.cov"

    res <- NMreadCov(file=file.cov)
    class(res)
    expect_equal_to_reference(res,fileRef)
})


test_that("A .cov with multiple tables",{

    fileRef <- "testReference/NMreadCov_02.rds"
    file.cov <- "testData/nonmem/xgxr032.cov"

    res1 <- NMreadCov(file=file.cov)
    
    expect_equal_to_reference(res1,fileRef)

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


test_that("A .cov with multiple tables - return all",{

    fileRef <- "testReference/NMreadCov_03.rds"
    file.cov <- "testData/nonmem/xgxr032.cov"

    res1 <- NMreadCov(file=file.cov,tableno="all")
    ## res2 <- NMreadCov2(file=file.cov)

    expect_equal_to_reference(res1,fileRef)
    
})