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")
})
philipmorrisintl/GladiaTOX documentation built on Aug. 27, 2023, 9:07 p.m.