inst/unitTests/test_getbootstrapdata.R

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

test_getbootstrapdata <- function() {
  
  obs <- tryCatch(getbootstrapdata(PathSamples=NULL,
                                       type=20), error=conditionMessage)
  
  checkIdentical("PathSamples field empty", obs)
  
  obs <- tryCatch(getbootstrapdata(PathSamples="text",
                                       type=NA), error=conditionMessage)
  
  checkIdentical("type field empty", obs)
  
  
  obs <- tryCatch(getbootstrapdata(PathSamples="text",
                                   type="aaa"), error=conditionMessage)
  
  checkIdentical("type must be 'kallisto' or 'salmon'.", obs)
}