minor polish to basic unit tests

eddelbuettel · Jul 24, 2021 · 5dd3ad4 · 5dd3ad4
1 parent 1efa825
commit 5dd3ad4
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 3 deletions.
diff --git a/R/test.R b/R/test.R
@@ -1,6 +1,6 @@
 ## Internal, not exported, function used by unit tests
 test <- function(src = "cat(2 + 2)") {
-    system2(r(), c("-e", shQuote(src)), stdout = TRUE, stderr = TRUE)
+    system2(r(), paste("-e", shQuote(src)), stdout = TRUE)
 }
 
 

diff --git a/tests/simpleTests.R b/tests/simpleTests.R
@@ -8,7 +8,8 @@
 if (unname(Sys.info()["sysname"]) == "Linux" &&
     Sys.getenv("TRAVIS", "false") != "true"  &&
     Sys.getenv("CI", "false") != "true") {
-    library(littler)
+    stopifnot(file.exists(littler:::r()))
+    stopifnot(length(system2(littler:::r(), "--version", stdout=TRUE)) > 10) # 14 lines
     stopifnot(identical(littler:::test(), "4"))   # default test is cat(2+2)
-    stopifnot(as.numeric(littler:::test('cat(R.version$year)')) >= 2015)  
+    stopifnot(as.numeric(littler:::test('cat(R.version$year)')) >= 2015)
 }