inst/unitTests/test_getMostRecentFilter.R

#######################################################################################
#metaIntegrator Unit Testing: getMostRecentFilter
#2015/04/20 11:00am @ Stanford
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
#the purpose of this code is to run the unit testing for the getMostRecentFilter function
#######################################################################################

#load RUnit testing library
library(RUnit)

# #Load the RData object we are testing on
# load("data/tinyMetaObject.RData")
# 
# #load runMetaAnalysis library
# source("R/getMostRecentFilter.R")

#######################################################################################
#Positive controls
#######################################################################################

#test
getMostRFOut <- try(getMostRecentFilter(tinyMetaObject))
checkTrue(!is(getMostRFOut,"try-error"))

#######################################################################################
#Negative controls
#######################################################################################

#Only one case in class
wrongTinyMetaObject               <- tinyMetaObject
wrongTinyMetaObject$filterResults <- NULL

#test
wrongGetMostRFOut <- try(getMostRecentFilter(wrongTinyMetaObject))
checkTrue(is(wrongGetMostRFOut,"try-error"))

Try the MetaIntegrator package in your browser

Any scripts or data that you put into this service are public.

MetaIntegrator documentation built on March 26, 2020, 6:29 p.m.