tests/testthat/test-ftp-geneIds.R

test_that("current", {
    x <- geneIds(release = NULL)
    expect_s4_class(x, "DFrame")
})

test_that("stable", {
    x <- geneIds(release = release)
    expect_s4_class(x, "DFrame")
    expect_true(all(vapply(
        X = x,
        FUN = is.character,
        FUN.VALUE = logical(1L)
    )))
    expect_identical(
        object = nrow(x),
        expected = ngene
    )
})
seqcloud/worminfo documentation built on Oct. 5, 2023, 5:27 p.m.