tests/testthat/test_gtoxLoadAsid.R

test_that("gtoxLoadAsid:return a data.table with a registered study", {
    tmp <- gtoxLoadAsid()
    expect_equal(class(tmp), c('data.table','data.frame'))
    expect_equal(nrow(tmp), 1)
    expect_equal(tmp$asnm, "SampleStudy")
})
pmpsa-hpc/GladiaTOX documentation built on Sept. 1, 2023, 5:52 p.m.