two minor edits to test files, no behavior change

Author: eddelbuettel

ChangeLog

@@ -1,3 +1,8 @@
+2019-12-07  Dirk Eddelbuettel  <[email protected]>
+
+	* inst/tinytest/test_misc.R: Add commented-out test that fails
+	* tests/tinytest.R: Minor edit
+
 2019-12-05  Dirk Eddelbuettel  <[email protected]>
 
 	* vignettes/rmd/Rcpp-FAQ.Rmd (Rcpp): Add entry about "'dataptr' (or

inst/tinytest/test_misc.R

@@ -181,3 +181,7 @@ expect_true(nchar(Rcpp:::bib()) > 0, info="bib file")
 #    test.getRcppVersion <- function() {
 expect_true(inherits(getRcppVersion(), "package_version"), info="package_version object")
 expect_true(getRcppVersion(devel=TRUE) >= getRcppVersion(devel=FALSE), info="dev greater equal release")
+
+## if need be it can be useful to fail to test e.g. the Docker setup
+## commented out now as we prefer to pass when not debugging ;-)
+# expect_true(FALSE, info="oh noes")

tests/tinytest.R

@@ -10,8 +10,8 @@ if (requireNamespace("tinytest", quietly=TRUE) &&
 
     ## Force tests to be executed if in dev release which we define as
     ## having a sub-release, eg 0.9.15.5 is one whereas 0.9.16 is not
-    if (length(strsplit(packageDescription("Rcpp")$Version, "\\.")[[1]]) > 3) {	# dev release, and
-        if (Sys.getenv("RunAllRcppTests") != "no") { 				# if env.var not yet set
+    if (length(strsplit(packageDescription("Rcpp")$Version, "\\.")[[1]]) > 3) {	# dev rel, and
+        if (Sys.getenv("RunAllRcppTests") != "no") { 			# if env.var not yet set
             message("Setting \"RunAllRcppTests\"=\"yes\" for development release\n")
             Sys.setenv("RunAllRcppTests"="yes")
         }
@@ -22,7 +22,7 @@ if (requireNamespace("tinytest", quietly=TRUE) &&
     if ((Sys.getenv("CI") == "true")     ||
         (Sys.getenv("TRAVIS") == "true") ||
         (Sys.getenv("CONTINUOUS_INTEGRATION") == "true")) {
-        if (Sys.getenv("RunAllRcppTests") != "no") { 				# if env.var not yet set
+        if (Sys.getenv("RunAllRcppTests") != "no") { 			# if env.var not yet set
             message("Always enabling \"RunAllRcppTests\"=\"yes\" on Travis\n")
             Sys.setenv("RunAllRcppTests"="yes")
         }