tests/main.R

In ibmdbR: IBM in-Database Analytics for R

#The runone function was copied from the package RODBC 
runone <- function(f)
{
  message("  Running ", sQuote(f))
  infile <- paste(f, "RR", sep = ".")
  outfile <- paste(f, "Rout", sep = ".")
  cmd <- paste(shQuote(file.path(R.home("bin"), "R")),
      "CMD BATCH --vanilla",
      shQuote(infile), shQuote(outfile))
  res <- system(cmd)
  if (res) {
    cat(readLines(outfile), sep="\n")
    file.rename(outfile, paste(outfile, "fail", sep="."))
    return(1L)
  }
  savefile <- paste(outfile, "save", sep = "." )
  if (file.exists(savefile)) {
    message("  Comparing ", sQuote(outfile), " to ",
        sQuote(savefile), " ...", appendLF = FALSE)
    res <- tools:::Rdiff(outfile, savefile, TRUE)
    if (!res) message(" OK")
  }
}

runone("common")

if(nzchar(Sys.getenv("IBMDBR_TESTING"))) {
  if(Sys.getenv("IBMDBR_TESTING")=="DB2WAREHOUSE") {
    runone("db2warehouse")
    if(dir.exists("/opt/ibm/dashdb_spark/spark")) {
      runone("db2spark")
    }
  } else {
    runone("db2")
  }
}