tests/testthat/test-getmask.R

data(iupac)

test_that("getmask() outputs IRanges object", {
    mask1 <- IRanges::IRanges(start=c(1,41), end=c(20,50))
    iupac <- iupac |> addmask2string(mask=mask1)
    expect_true(getmask(iupac)@width[1] == 20)
})
kullrich/MSA2dist documentation built on April 26, 2024, 4:43 p.m.