external_tests/gummersbach.R

In tudo-r/BatchJobs: Batch Computing with R

library(BatchJobs)
source("helpers.R")

runTests = function(staged.queries) {   
  conf = BatchJobs:::getBatchJobsConf()
  conf$mail.start = conf$mail.done = conf$mail.error = "none"
  conf$staged.queries = staged.queries
  
  conf$cluster.functions = makeClusterFunctionsInteractive()
  doExternalTest(whitespace=FALSE)
  
  conf$cluster.functions = makeClusterFunctionsLocal()
  doExternalTest(whitespace=FALSE)
  
  conf$cluster.functions = makeClusterFunctionsMulticore()
  doExternalTest(whitespace=FALSE)
  doKillTest()
  
  conf$cluster.functions = makeClusterFunctionsSSH(
    makeSSHWorker("maanvs01"))
  doExternalTest(whitespace=FALSE)
  doKillTest()
  
  conf$cluster.functions = makeClusterFunctionsSSH(
    makeSSHWorker("maanvs01", ncpus=4, max.load=4, max.jobs=2))
  doExternalTest(whitespace=FALSE)
  
  conf$cluster.functions = makeClusterFunctionsSSH(
    makeSSHWorker("maanvs01"), 
    makeSSHWorker("maanbs02"))
  doExternalTest(whitespace=FALSE)
  doKillTest()
  
  conf$cluster.functions = makeClusterFunctionsTorque(
    "/home/bischl/batchjobs/BatchJobs/examples/cfTorque/simple.tmpl")
  doExternalTest(whitespace=FALSE)
}

runTests(staged.queries=FALSE)
runTests(staged.queries=TRUE)