tests/testthat/test-getAutomorphisms.R

In genomaths/GenomAutomorphism: Compute the automorphisms between DNA's Abelian group representations

test_that("getAutomorphisms function test", {
    data(autm, package = "GenomAutomorphism")
    aut <- autm@elementMetadata
    test1 <- length(ranges(getAutomorphisms(aut))) == 7100
    test2 <- inherits(getAutomorphisms(x = list(aut, aut)), "AutomorphismList")
    expect_true(all(test1, test2))
})