inst/unitTests/test_CDFfromGTF.R

In EventPointer: An effective identification of alternative splicing events using junction arrays and RNA-Seq data

test_CDFfromGTF <- function() {
  obs <- tryCatch(CDFfromGTF(input="Test"), error=conditionMessage)
  checkIdentical("Microarray field empty", obs)
  
  obs <- tryCatch(CDFfromGTF(input = "CustomGTF", inputFile = NULL, PSR="T1", Junc="T2"
                  , PathCDF="T3", microarray = "RTA"), error=conditionMessage)
  checkIdentical("inputFile parameter is empty", obs)

}