tests/alltests.R

In Fuzzy-Logix/AdapteR: Converts R syntax to SQL to provide fast analytics using in-database C++ library DB Lytix.

## You can run the test suite by executing the full file in any R session after doing flConnect.
## Prerequisite is to change directory to the AdapteR tests directory.

library(testthat)
library(plyr)

##' runs a test file.
##'
##' @param f the test file to run
##' @param ask if TRUE, will ask for each file
##' @param skip a regexp on the filename whether the test should be skipped
##' @param ... passed on to test_file
##' @return the test_file report
runMyTestFile <- function(f, ask=FALSE, runonly=NULL, skip=NULL,...){
    if(!is.null(skip))
        if(grepl(skip,f)) {
            cat(paste0("skipped ",f,"\n"))
            return(data.frame())
        }
    if(!is.null(runonly))
        if(!grepl(runonly,f)) {
            ##cat(paste0("skipped ",f,"\n"))
            return(data.frame())
        }
    cat(paste0("testing ",f,"\n"))
    if(ask)
        run <- readline("start (y?)")=="y"
    else
        run <- TRUE
    if(run)
        tryCatch({
            options(debugSQL=FALSE)
            test_file(f,...)
        },
        error=function(e) print(e))
}


checkagain <- ".*"
results <- list()

results$testthat <- llply(
    find_test_scripts("testthat"),
    runMyTestFile,
    ask=FALSE,
    runonly=checkagain)

results$testsuite <- llply(
    find_test_scripts("testsuite"),
    runMyTestFile,
    ask=FALSE,
    runonly=checkagain)


# results$limitations <- llply(
#     find_test_scripts("limitations"),
#     runMyTestFile,
#     ask=FALSE,
#     runonly=checkagain)