tests/testthat/test_addGRanges.R

test_that("Check class of addGRanges", {
 myOGRE <- makeExampleOGREDataSet()
 myOGRE <- loadAnnotations(myOGRE)
 myOGRE <- addGRanges(myOGRE,makeExampleGRanges(),"subject")
 expect_equal(class(myOGRE),class(GRangesList()))
})
svenbioinf/OGRE documentation built on Jan. 30, 2023, 10:55 p.m.