tests/testthat/test_OGREDataSetFromDir.R

test_that("Check class of OGREDataSetFromDir", {
 myQueryFolder <- file.path(system.file('extdata', package = 'OGRE'),"query")
 mySubjectFolder <- file.path(system.file('extdata', package = 'OGRE'),"subject")
 myOGRE <- OGREDataSetFromDir(queryFolder=myQueryFolder,subjectFolder=mySubjectFolder)
 expect_equal(class(myOGRE),class(GRangesList()))
})
svenbioinf/OGRE documentation built on Jan. 30, 2023, 10:55 p.m.