37 lines
1.0 KiB
R
37 lines
1.0 KiB
R
|
|
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")
|
|
}
|
|
0L
|
|
}
|
|
|
|
res <- 0L
|
|
if(.Platform$OS.type == "unix") {
|
|
res <- res + runone("multicore1")
|
|
res <- res + runone("multicore2")
|
|
res <- res + runone("multicore3")
|
|
}
|
|
res <- res + runone("snow1")
|
|
res <- res + runone("snow2")
|
|
|
|
if(res) stop(gettextf("%d tests failed", res))
|
|
|