mirror of
https://github.com/rstudio/shiny.git
synced 2026-01-09 23:18:10 -05:00
28 lines
707 B
R
28 lines
707 B
R
source("functions.R")
|
|
|
|
options(warn = 1)
|
|
|
|
failures <- 0
|
|
for (dir in appdirs()) {
|
|
cat("Testing", dir, "\n")
|
|
|
|
snapshotPath <- file.path(dir, "R.out.save")
|
|
if (!upToDate(dir, "R.out.save")) {
|
|
warning(dir, " snapshot may be out of date")
|
|
}
|
|
|
|
res <- executeApp(dir)
|
|
if (!identical(readLines(snapshotPath), res)) {
|
|
resultPath <- file.path("output", dir, "R.out")
|
|
dir.create(dirname(resultPath), showWarnings = FALSE, recursive = TRUE, mode = "0775")
|
|
writeLines(res, resultPath)
|
|
message("Results differ! Writing output to ", resultPath)
|
|
failures <- failures + 1
|
|
}
|
|
}
|
|
|
|
if (failures) {
|
|
cat(file = stderr(), paste0("--\n", failures, " test(s) failed\n"))
|
|
q("no", status = 1)
|
|
}
|