streamlined initial test and sourceCpp

Author: eddelbuettel

inst/tinytest/test_algorithm.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_algorithm.R'")
-
-library(Rcpp)
-sourceCpp("cpp/algorithm.cpp")
+Rcpp::sourceCpp("cpp/algorithm.cpp")
 
 #    test.sum <- function() {
 v <- c(1.0, 2.0, 3.0, 4.0, 5.0)

inst/tinytest/test_as.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_as.R'")
-
-library(Rcpp)
-sourceCpp("cpp/as.cpp")
+Rcpp::sourceCpp("cpp/as.cpp")
 
 #    test.as.int <- function(){
 expect_equal( as_int(10), 10L, info = "as<int>( REALSXP ) " )

inst/tinytest/test_attributes.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_attributes.R'")
-
-library(Rcpp)
-sourceCpp("cpp/attributes.cpp")
+Rcpp::sourceCpp("cpp/attributes.cpp")
 
 #test.attributes <- function() {
 expect_equal(comments_test(),

inst/tinytest/test_dataframe.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_dataframe.R'")
-
-library(Rcpp)
-sourceCpp("cpp/DataFrame.cpp")
+Rcpp::sourceCpp("cpp/DataFrame.cpp")
 
 #test.DataFrame.FromSEXP <- function() {
 DF <- data.frame(a=1:3, b=c("a","b","c"))

inst/tinytest/test_reference.R

@@ -16,11 +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 (! .runThisTest) exit_file("Set 'RunAllRcppTests' to 'yes' to run.")
+if (Sys.getenv("RunAllRcppTests") != "yes") exit_file("Set 'RunAllRcppTests' to 'yes' to run.")
 
-library(Rcpp)
-sourceCpp("cpp/Reference.cpp")
+Rcpp::sourceCpp("cpp/Reference.cpp")
 
 #    test.Reference <- function(){
 Instrument <- setRefClass(Class="Instrument", fields=list("id"="character", "description"="character"))