tests/testthat/test-cdsfile2aafile.R

data(ath)

test_that("cdsfile2aafile() outputs AAStringSet", {
    cdsfile <- system.file("fasta/ath.cds.fasta.gz", package="CRBHits")
    aafile <- tempfile()
    cdsfile2aafile(cdsfile, aafile)
    aa <- Biostrings::readAAStringSet(aafile)
    expect_true(class(aa)=="AAStringSet")
})
kullrich/CRBHits documentation built on Feb. 21, 2025, 7:05 p.m.