tests/testthat/test_gtoxLoadApid.R

context("Check assay plate table")

test_that("gtoxLoadApid:is a data.table", {
    tmp <- gtoxLoadApid()
    expect_true("data.table"%in%class(tmp))
})

test_that("gtoxLoadApid:contains a u_boxtrack:S-000049111", {
    tmp <- gtoxLoadApid()
    expect_true(any(tmp$u_boxtrack%in%"S-000049111"))
    })
pmpsa-hpc/GladiaTOX documentation built on Sept. 1, 2023, 5:52 p.m.