Commit 82a929a6 authored by Delaigue Olivier's avatar Delaigue Olivier
Browse files

style(test): add missing whitespaces

Refs #120
parent 89353dd1
Pipeline #23973 passed with stage
in 7 minutes and 58 seconds
......@@ -79,7 +79,7 @@ StoreTopicResults <- function(topic, package, path, run.dontrun = TRUE, run.dont
CompareStableDev <- function() {
res <- testthat::test_file("tests/testthat/regression.R")
dRes <- as.data.frame(res)
if(any(dRes[, "failed"] > 0) | any(dRes[, "error"])) {
if (any(dRes[, "failed"] > 0) | any(dRes[, "error"])) {
quit(status = 1)
}
}
......@@ -97,7 +97,7 @@ lActions <- list(
compare = CompareStableDev
)
if(length(Args) == 1 && Args %in% names(lActions)) {
if (length(Args) == 1 && Args %in% names(lActions)) {
lActions[[Args]]()
} else {
stop("This script should be run with one argument in the command line:\n",
......
......@@ -31,14 +31,13 @@ quit2 <- function(status = 1, ...) {
library(testthat)
library(airGR)
scheduled_tests <-
list.files(
scheduled_tests <- list.files(
path = "tests/testthat",
pattern = "^scheduled-.*\\.R$",
full.names = TRUE
)
lRes = lapply(scheduled_tests, test_file)
lRes <- lapply(scheduled_tests, test_file)
for (res in lRes) {
dRes <- as.data.frame(res)
if (any(dRes[, "failed"] > 0) | any(dRes[, "error"])) {
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment