finer grained test message

Author: eddelbuettel

ChangeLog

@@ -1,6 +1,7 @@
 2019-12-08  Dirk Eddelbuettel  <[email protected]>
 
 	* inst/tinytest/test_client_package.R: Finer-grained skip messages
+	* inst/tinytest/test_module_client_package.R: Idem
 
 	* src/attributes.cpp: Remove dangling '#nocov end'
 

inst/tinytest/test_client_package.R

@@ -22,7 +22,7 @@
 .runThisTest <- Sys.getenv("RunAllRcppTests") == "yes" && Sys.getenv("RunVerboseRcppTests") == "yes"
 
 if (! .runThisTest) exit_file("Set 'RunVerboseRcppTests' and 'RunAllRcppTests' to 'yes' to run.")
-if (.onWindow)      exit_file("Skipping on Windows.'")
+if (.onWindows)     exit_file("Skipping on Windows.'")
 
 #.client.package <- function(pkg = "testRcppPackage") {
 td <- tempfile()

inst/tinytest/test_module_client_package.R

@@ -25,14 +25,11 @@
 ## It now (Dec 2011) appears to fail on Windows too
 .onWindows <- .Platform$OS.type == "windows"
 
-.runThisTest <- Sys.getenv("RunAllRcppTests") == "yes"
-
-## override -- skipping test for now as noisy
-.runThisTest <- FALSE
+if (.badOSX || .onWindows) exit_file("Skipping as older macOS or Windows.")
 
-if ( ! .runThisTest) exit_file("Skipping 'test_module_client_package.R'")
+.runThisTest <- Sys.getenv("RunAllRcppTests") == "yes" && Sys.getenv("RunVerboseRcppTests") == "yes"
 
-if (.badOSX || .onWindows) exit_file("Skipping as older macOS or Windows.")
+if (! .runThisTest) exit_file("Set 'RunVerboseRcppTests' and 'RunAllRcppTests' to 'yes' to run.")
 
 ## ## added test for 'testRcppClass' example of extending C++ classes via R
 #    test.Class.package <- function( ){