inst/unitTests/test_CDFfromGTF.R

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)

}
jpromeror/EventPointer documentation built on May 17, 2023, 10:29 p.m.