tests/testthat/test-translation.R

test_that("multiplication works", {
    data("aln", package = "GenomAutomorphism")
    aa <- translation(aln)
    expect_true(grepl("IYVGITTLQFLGS", as.character(aa[2])))
})
genomaths/GenomAutomorphism documentation built on May 10, 2024, 12:11 a.m.