tests/testthat/test-aabin2aastring.R

In kullrich/MSA2dist: MSA2dist calculates pairwise distances between all sequences of a DNAStringSet or a AAStringSet using a custom score matrix and conducts codon based analysis

data(woodmouse, package="ape")

test_that("aabin2aastring() outputs AAStringSet", {
    expect_true(class(ape::trans(woodmouse[,1:6], 2) |> aabin2aastring())
    == "AAStringSet")
    expect_true(class(Biostrings::AAStringSet("M") |> aastring2aabin() |>
    aabin2aastring()) == "AAStringSet")
})