tests/testthat/test-getpos.R

data(iupac)

test_that("getpos() outputs GRanges object", {
    iupac <- iupac |> addpos2string(chrom="chr1", start=1, end=1000)
    expect_true(as.character(getpos(iupac)@seqnames) == "chr1")
})
kullrich/MSA2dist documentation built on Nov. 14, 2024, 5:39 p.m.