| 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)) | |