tests/testthat/test-cdsfile2aafile.R

In kullrich/CRBHits: Conditional reciprocal best hits (CRBHits) in 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")
})