fix R CMD check not finding sourceCpp files

eddelbuettel · eddelbuettel · commit 7523da86cbf6 · 2012-12-01T15:38:08.000Z
still needed
  -- actual Vector.cpp file :)
  -- reactivate runit.Vector.R
  -- set the global from the wrapper in tests/ too
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: Rcpp
 Title: Seamless R and C++ Integration
-Version: 0.10.1.1
+Version: 0.10.1.2
 Date: $Date$
 Author: Dirk Eddelbuettel and Romain Francois, with contributions 
  by Douglas Bates, John Chambers and JJ Allaire
diff --git a/inst/unitTests/runit.DataFrame.R b/inst/unitTests/runit.DataFrame.R
@@ -25,7 +25,8 @@ if (.runThisTest) {
 .setUp <- function(){
 	suppressMessages( require( datasets ) )
 	data( iris )
-    sourceCpp( system.file( "unitTests/cpp/DataFrame.cpp" , package = "Rcpp" ) )
+    #sourceCpp( system.file( "unitTests/cpp/DataFrame.cpp" , package = "Rcpp" ) )
+    sourceCpp(file.path(pathRcppTests, "cpp/DataFrame.cpp"))
 }
 
 test.DataFrame.FromSEXP <- function() {
@@ -79,7 +80,7 @@ test.DataFrame.CreateTwo.stringsAsFactors <- function() {
 }
 
 test.DataFrame.nrows <- function(){
-    checkEquals( DataFrame_nrows( iris ), nrow(iris) )  
+    checkEquals( DataFrame_nrows( iris ), nrow(iris) )
 }
 
 
diff --git a/inst/unitTests/runit.Vector.R b/inst/unitTests/runit.Vector.R
@@ -18,12 +18,13 @@
 # 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 <- FALSE ## Sys.getenv("RunAllRcppTests") == "yes"
 
 if (.runThisTest) {
 
 .setUp <- function() {
-    sourceCpp( system.file( "unitTests/cpp/Vector.cpp", package = "Rcpp" ) )
+    #sourceCpp( system.file( "unitTests/cpp/Vector.cpp", package = "Rcpp" ) )
+    sourceCpp(file.path(pathRcppTests, "cpp/Vector.cpp"))
 }
 
 test.RawVector <- function(){
diff --git a/inst/unitTests/runit.sugar.R b/inst/unitTests/runit.sugar.R
@@ -22,8 +22,9 @@
 
 if (.runThisTest) {
 
-.setUp <- function(){
-    sourceCpp( system.file( "unitTests/cpp/sugar.cpp", package = "Rcpp") )    
+.setUp <- function() {
+    #sourceCpp( system.file( "unitTests/cpp/sugar.cpp", package = "Rcpp") )
+    sourceCpp(file.path(pathRcppTests, "cpp/sugar.cpp"))
 }
 
 test.sugar.abs <- function( ){
@@ -664,12 +665,12 @@ test.sugar.signif <- function() {
 
 test.RangeIndexer <- function(){
     x <- rnorm(10)
-    checkEquals( runit_RangeIndexer(x), max(x[1:5]) )    
+    checkEquals( runit_RangeIndexer(x), max(x[1:5]) )
 }
 
 test.self_match <- function(){
     x <- sample( letters, 1000, replace = TRUE )
-    checkEquals( runit_self_match(x), match(x,unique(x)) )    
+    checkEquals( runit_self_match(x), match(x,unique(x)) )
 }
 
 test.table <- function(){
diff --git a/tests/doRUnit.R b/tests/doRUnit.R
@@ -41,8 +41,8 @@ if (require("RUnit", quietly = TRUE)) {
 
     pkg <- "Rcpp"                           # code below for Rcpp
     require(pkg, character.only=TRUE)
-    path <- system.file("unitTests", package = pkg)
-    stopifnot(file.exists(path), file.info(path.expand(path))$isdir)
+    pathRcppTests <<- system.file("unitTests", package = pkg)
+    stopifnot(file.exists(pathRcppTests), file.info(path.expand(pathRcppTests))$isdir)
 
     ## without this, we get unit test failures
     Sys.setenv( R_TESTS = "" )
@@ -58,7 +58,7 @@ if (require("RUnit", quietly = TRUE)) {
 
     Rcpp.unit.test.output.dir <- getwd()
 
-    source(file.path(path, "runTests.R"), echo = TRUE)
+    source(file.path(pathRcppTests, "runTests.R"), echo = TRUE)
 
 } else {
     print("package RUnit not available, cannot run unit tests")

Original file line number	Diff line number	Diff line change
`@@ -25,7 +25,8 @@ if (.runThisTest) {`
`25`	`25`	`.setUp <- function(){`
`26`	`26`	`suppressMessages( require( datasets ) )`
`27`	`27`	`data( iris )`
`28`		`- sourceCpp( system.file( "unitTests/cpp/DataFrame.cpp" , package = "Rcpp" ) )`
	`28`	`+ #sourceCpp( system.file( "unitTests/cpp/DataFrame.cpp" , package = "Rcpp" ) )`
	`29`	`+ sourceCpp(file.path(pathRcppTests, "cpp/DataFrame.cpp"))`
`29`	`30`	`}`
`30`	`31`
`31`	`32`	`test.DataFrame.FromSEXP <- function() {`
`@@ -79,7 +80,7 @@ test.DataFrame.CreateTwo.stringsAsFactors <- function() {`
`79`	`80`	`}`
`80`	`81`
`81`	`82`	`test.DataFrame.nrows <- function(){`
`82`		`- checkEquals( DataFrame_nrows( iris ), nrow(iris) )`
	`83`	`+ checkEquals( DataFrame_nrows( iris ), nrow(iris) )`
`83`	`84`	`}`
`84`	`85`
`85`	`86`