inst/unitTests/test_CandidateFilter.R

In PriceLab/trena: Fit transcriptional regulatory networks using gene expression, priors, machine learning

library(trena)
library(RUnit)
#----------------------------------------------------------------------------------------------------
printf <- function(...) print(noquote(sprintf(...)))
#----------------------------------------------------------------------------------------------------
runTests <- function()
{
   test_CandidateFilter()
   
} # runTests
#----------------------------------------------------------------------------------------------------
test_CandidateFilter <- function()
{
    printf("--- test_CandidateFilter")

    # Create an empty filter
    candidate.filter <- CandidateFilter(quiet = TRUE)
    checkEquals(is(candidate.filter), "CandidateFilter")

} #test_CandidateFilter
#----------------------------------------------------------------------------------------------------
if(!interactive()) runTests()