streamlined initial test and sourceCpp

Author: eddelbuettel

ChangeLog

@@ -9,6 +9,8 @@
 	* inst/tinytest/test_rcpp_package_skeleton.R: Idem
 	* inst/tinytest/test_reference.R: Idem
 
+	* inst/tinytest/test_*.R: Streamlined initial test and sourceCpp call
+
 	* src/attributes.cpp: Remove dangling '#nocov end'
 
 2019-12-07  Dirk Eddelbuettel  <edd@debian.org>

inst/tinytest/test_date.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"
+if (Sys.getenv("RunAllRcppTests") != "yes") exit_file("Set 'RunAllRcppTests' to 'yes' to run.")
 
-if (!.runThisTest) exit_file("Skipping 'test_date.R'")
-
-library(Rcpp)
-sourceCpp("cpp/dates.cpp")
+Rcpp::sourceCpp("cpp/dates.cpp")
 
 #    test.Date.ctor.sexp <- function() {
 fun <- ctor_sexp

inst/tinytest/test_dispatch.R

@@ -18,12 +18,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"
+if (Sys.getenv("RunAllRcppTests") != "yes") exit_file("Set 'RunAllRcppTests' to 'yes' to run.")
 
-if (!.runThisTest) exit_file("Skipping 'test_dispatch.R'")
-
-library(Rcpp)
-sourceCpp("cpp/dispatch.cpp")
+Rcpp::sourceCpp("cpp/dispatch.cpp")
 
 #    test.RawVector <- function() {
 x <- as.raw(0:9)

inst/tinytest/test_embedded_r.R

@@ -16,9 +16,7 @@
 ##  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"
-
-if (!.runThisTest) exit_file("Skipping, set 'RunAllRcppTests=yes' to run.")
+if (Sys.getenv("RunAllRcppTests") != "yes") exit_file("Set 'RunAllRcppTests' to 'yes' to run.")
 
 library(Rcpp)
 

inst/tinytest/test_environments.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"
+if (Sys.getenv("RunAllRcppTests") != "yes") exit_file("Set 'RunAllRcppTests' to 'yes' to run.")
 
-if (!.runThisTest) exit_file("Skipping 'test_environment.R'")
-
-library(Rcpp)
-sourceCpp("cpp/Environment.cpp")
+Rcpp::sourceCpp("cpp/Environment.cpp")
 
 #    test.environment.ls <- function(){
 e <- new.env( )

inst/tinytest/test_exceptions.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"
+if (Sys.getenv("RunAllRcppTests") != "yes") exit_file("Set 'RunAllRcppTests' to 'yes' to run.")
 
-if (!.runThisTest) exit_file("Skipping 'test_exceptions.R'")
-
-library(Rcpp)
-sourceCpp("cpp/exceptions.cpp")
+Rcpp::sourceCpp("cpp/exceptions.cpp")
 
 #test.stdException <- function() {
 ## Code works normally without an exception

inst/tinytest/test_exceptions_nocall.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"
+if (Sys.getenv("RunAllRcppTests") != "yes") exit_file("Set 'RunAllRcppTests' to 'yes' to run.")
 
-if (!.runThisTest) exit_file("Skipping 'test_exceptions_nocall.R'")
-
-library(Rcpp)
-sourceCpp("cpp/Exceptions_nocall.cpp")
+Rcpp::sourceCpp("cpp/Exceptions_nocall.cpp")
 
 #    test.Rcpp_exception <- function() {
 tryCatch(Rcpp_exception(), error = function(e){

inst/tinytest/test_function.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"
+if (Sys.getenv("RunAllRcppTests") != "yes") exit_file("Set 'RunAllRcppTests' to 'yes' to run.")
 
-if (!.runThisTest) exit_file("Skipping 'test_function.R'")
-
-library(Rcpp)
-sourceCpp("cpp/Function.cpp")
+Rcpp::sourceCpp("cpp/Function.cpp")
 
 #    test.Function <- function(){
 expect_equal( function_( rnorm ), rnorm, info = "Function( CLOSXP )" )