tests/testthat/test-ftp-blastp.R

test_that("current", {
    x <- blastp(release = NULL)
    expect_s4_class(x, "SplitDataFrameList")
})

test_that("stable", {
    x <- blastp(release = release)
    expect_s4_class(x, "SplitDataFrameList")
    expect_length(x, 14620L)
    expect_identical(
        object = x[[1L]],
        expected = DataFrame(
            "wormpep" = "CE00004",
            "peptide" = "ENSP00000308897",
            "eValue" = 1e-46
        )
    )
})
steinbaugh/worminfo documentation built on Oct. 6, 2023, 9:40 a.m.