From 82a929a60168290c1ebb5d3ca779ce84365499f2 Mon Sep 17 00:00:00 2001
From: Delaigue Olivier <olivier.delaigue@irstea.fr>
Date: Tue, 15 Jun 2021 11:40:07 +0200
Subject: [PATCH] style(test): add missing whitespaces Refs #120
---
tests/scheduled_tests/regression.R | 4 ++--
tests/scheduled_tests/scheduled.R | 5 ++---
2 files changed, 4 insertions(+), 5 deletions(-)
diff --git a/tests/scheduled_tests/regression.R b/tests/scheduled_tests/regression.R
index 34f7f546..88c7b0f6 100644
--- a/tests/scheduled_tests/regression.R
+++ b/tests/scheduled_tests/regression.R
@@ -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",
diff --git a/tests/scheduled_tests/scheduled.R b/tests/scheduled_tests/scheduled.R
index c8f4d7ee..ece2a257 100644
--- a/tests/scheduled_tests/scheduled.R
+++ b/tests/scheduled_tests/scheduled.R
@@ -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"])) {
--
GitLab