tests/testsuite/test_demos.R

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

demos <- list.files(path="../demo",pattern=".*\\.R$",full.names = TRUE)
oreadline <- readline
for(f in demos){
    test_that(paste0("demo ", gsub("^.*/","",f), "runs"), {
        cat(paste0("running demo ", gsub("^.*/","",f), "\n"))
        readline <- function(x) cat(paste0(x," \n"))
        source(f)
    })
}
readline <- oreadline
options(debugSQL=F)