tests/testthat/test-emptyRanges.R

In acidgenomics/freerange: Generate and Manipulate Genomic Ranges

context("emptyRanges")

test_that("default", {
    object <- emptyRanges("XXX")
    expect_identical(
        object = levels(seqnames(object)),
        expected = "unknown"
    )
    expect_identical(
        object = IRanges::ranges(object),
        expected = IRanges::IRanges(
            start = 1L,
            end = 100L,
            names = "XXX"
        )
    )
})

test_that("mcolnames", {
    object <- emptyRanges(
        "EGFP",
        seqname = "transgene",
        mcolnames = c("geneID", "geneName")
    )
    expect_identical(
        object = names(mcols(object)),
        expected = c("geneID", "geneName")
    )
})