finer grained test message

Author: eddelbuettel

ChangeLog

@@ -2,6 +2,10 @@
 
 	* inst/tinytest/test_client_package.R: Finer-grained skip messages
 	* inst/tinytest/test_module_client_package.R: Idem
+	* inst/tinytest/test_expose_class.R: Idem
+	* inst/tinytest/test_interface.R: Idem
+	* inst/tinytest/test_rcpp_package_skeleton.R: Idem
+	* inst/tinytest/test_reference.R: Idem
 
 	* src/attributes.cpp: Remove dangling '#nocov end'
 

inst/tinytest/test_expose_class.R

@@ -16,12 +16,9 @@
 ##  You should have received a copy of the GNU General Public License
 ##  along with Rcpp.  If not, see <http://www.gnu.org/licenses/>.
 
-.runThisTest <- Sys.getenv("RunAllRcppTests") == "yes"
+.runThisTest <- Sys.getenv("RunAllRcppTests") == "yes" && Sys.getenv("RunVerboseRcppTests") == "yes"
 
-## override -- skipping test for now
-.runThisTest <- FALSE
-
-if (!.runThisTest) exit_file("Skipping 'test_expose_class.R'")
+if (! .runThisTest) exit_file("Set 'RunVerboseRcppTests' and 'RunAllRcppTests' to 'yes' to run.")
 
 library(Rcpp)
 

inst/tinytest/test_interface.R

@@ -16,12 +16,9 @@
 ##  You should have received a copy of the GNU General Public License
 ##  along with Rcpp.  If not, see <http://www.gnu.org/licenses/>.
 
-.runThisTest <- Sys.getenv("RunAllRcppTests") == "yes"
+.runThisTest <- Sys.getenv("RunAllRcppTests") == "yes" && Sys.getenv("RunVerboseRcppTests") == "yes"
 
-## override -- skipping test for now as noisy
-.runThisTest <- FALSE
-
-if (!.runThisTest) exit_file("Skipping 'test_interface.R'")
+if (! .runThisTest) exit_file("Set 'RunVerboseRcppTests' and 'RunAllRcppTests' to 'yes' to run.")
 
 library(Rcpp)
 

inst/tinytest/test_rcpp_package_skeleton.R

@@ -16,12 +16,9 @@
 ##  You should have received a copy of the GNU General Public License
 ## along with Rcpp.  If not, see <http://www.gnu.org/licenses/>.
 
-.runThisTest <- Sys.getenv("RunAllRcppTests") == "yes"
+.runThisTest <- Sys.getenv("RunAllRcppTests") == "yes" && Sys.getenv("RunVerboseRcppTests") == "yes"
 
-## override -- skipping test for now (need to rebuild binary)
-.runThisTest <- FALSE
-
-if (!.runThisTest) exit_file("Skipping 'test_rcpp_package_skeleton'") #, set 'RunAllRcppTests=yes' to run.")
+if (! .runThisTest) exit_file("Set 'RunVerboseRcppTests' and 'RunAllRcppTests' to 'yes' to run.")
 
 library(Rcpp)
 

inst/tinytest/test_reference.R

@@ -17,11 +17,7 @@
 ##  along with Rcpp.  If not, see <http://www.gnu.org/licenses/>.
 
 .runThisTest <- Sys.getenv("RunAllRcppTests") == "yes"
-
-## override -- skipping test for now (need to rebuild binary)
-.runThisTest <- FALSE
-
-if (!.runThisTest) exit_file("Skipping 'test_reference.R'") #, set 'RunAllRcppTests=yes' to run.")
+if (! .runThisTest) exit_file("Set 'RunAllRcppTests' to 'yes' to run.")
 
 library(Rcpp)
 sourceCpp("cpp/Reference.cpp")