inst/unitTests/excel_generation_tests.R

In ubioinformat/TraRe: Transcriptional Rewiring

excel_generation_tests <- function(){

  obs <-tryCatch(excel_generation(),error=conditionMessage)

  RUnit::checkIdentical('Path to the graph object must be specified', obs)

  obs <-tryCatch(excel_generation('Not working path'),error=conditionMessage)

  RUnit::checkIdentical('graph object in the specified folder must exist', obs)

  workingpath <- system.file('extdata',package='TraRe')

  obs <-tryCatch(excel_generation(workingpath,cliquesbool='non-logical'),error=conditionMessage)

  RUnit::checkIdentical('non-logical variable pass to this cliquesbool argument', obs)
}