inst/unitTests/test_getUniverse.R

In BBCG/ramr: Detection of Rare Aberrantly Methylated Regions in Array and NGS Data

test_getUniverse <- function () {
  data(ramr)
  RUnit::checkException(
    getUniverse(c())
  )
  RUnit::checkEquals(
    length( getUniverse(ramr.data, min.cpgs=1, merge.window=1) ),
    length(ramr.data)
  )
  RUnit::checkTrue(
    all( width( getUniverse(ramr.data, min.cpgs=10, merge.window=1000) ) > 1000 )
  )
}