tests/testthat/test-ftp-geneIds.R

In seqcloud/worminfo: WormBase Annotation Data

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
    )
})