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 Jan. 2, 2025, 12:25 a.m.