Merge pull request #198 from RcppCore/feature/binary-build-tests

Feature/binary build tests

Author: jjallaire

.Rinstignore

@@ -1,3 +1,4 @@
 inst/doc/Makefile
 inst/doc/jss.bst
 inst/doc/RJournal.sty
+inst/unitTests/src

ChangeLog

@@ -1,5 +1,8 @@
 2014-11-02  Dirk Eddelbuettel  <edd@debian.org>
 
+        * inst/unitTests/RcppTestA: Rename to inst/unitTests/testRcppPackage
+        * inst/unitTests/testRcppPackage: Updated throughout
+
         * inst/include/Rcpp/Rmath.h: As suggested by Kevin, test for R_VERSION
         via #define to conditon on R >= 3.1.2 -- this does not require a hard
         constraint in DESCRIPTION yet on newer R will get R::[dpq]nbinom_mu()

inst/unitTests/RcppTestA/DESCRIPTION

@@ -0,0 +1,64 @@
+#!/usr/bin/r -t
+#
+# Copyright (C) 2014  Dirk Eddelbuettel
+#
+# This file is part of Rcpp.
+#
+# Rcpp is free software: you can redistribute it and/or modify it
+# under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 2 of the License, or
+# (at your option) any later version.
+#
+# Rcpp is distributed in the hope that it will be useful, but
+# WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with Rcpp.  If not, see <http://www.gnu.org/licenses/>.
+
+.onLinux <- .Platform$OS.type == "unix" && unname(Sys.info()["sysname"]) == "Linux"
+
+.onTravis <- Sys.getenv("TRAVIS") != ""
+
+.runThisTest <- Sys.getenv("RunAllRcppTests") == "yes"
+
+test.binary.testRcppPackage <- function() {
+
+    if (.runThisTest && .onLinux && .onTravis) {
+
+        debpkg <- "r-cran-testrcpppackage"
+        rpkg <- "testRcppPackage"
+    
+        ## R calls it i686 or x86_64; Debian/Ubuntu call it i386 or amd64
+        arch <- switch(unname(Sys.info()["machine"]), "i686"="i386", "x86_64"="amd64")
+
+        ## filename of pre-built 
+        debfile <- file.path(system.file("unitTests/bin", package="Rcpp"),
+                             arch,
+                             paste0(debpkg, "_0.1.0-1_", arch, ".deb"))
+
+        if (file.exists(debfile)) {
+            system(paste("sudo dpkg -i", debfile))
+
+            ## R> testRcppPackage:::rcpp_hello_world()
+            ## [[1]]
+            ## [1] "foo" "bar"
+            
+            ## [[2]]
+            ## [1] 0 1
+            
+            ## R> 
+
+            require(rpkg, lib.loc = "/usr/lib/R/site-library", character.only = TRUE)
+            hello_world <- get("rcpp_hello_world", asNamespace(rpkg))
+            
+            checkEquals(hello_world(), list(c("foo", "bar"), c(0.0, 1.0)),
+                        msg = "code from binary package")
+
+            system(paste("sudo dpkg --purge", debpkg))
+        }
+    }
+}
+
+

inst/unitTests/RcppTestA/NAMESPACE

@@ -1,6 +1,6 @@
 #!/usr/bin/r -t
 #
-# Copyright (C) 2010 - 2012  Dirk Eddelbuettel and Romain Francois
+# Copyright (C) 2010 - 2014  Dirk Eddelbuettel and Romain Francois
 #
 # This file is part of Rcpp.
 #
@@ -22,28 +22,28 @@
 
 .runThisTest <- Sys.getenv("RunAllRcppTests") == "yes"
 
-.client.package <- function( pkg = "RcppTestA" ){
+.client.package <- function(pkg = "testRcppPackage") {
     td <- tempfile()
     cwd <- getwd()
-    dir.create( td )
-    file.copy( system.file( "unitTests", pkg, package = "Rcpp" ) , td, recursive = TRUE)
-    setwd( td )
-    on.exit( { setwd( cwd) ; unlink( td, recursive = TRUE ) } )
-    R <- shQuote( file.path( R.home( component = "bin" ), "R" ))
-    cmd <- paste( R , "CMD build", pkg )
-    system( cmd )
-    dir.create( "templib" )
-    install.packages( paste( pkg, "_1.0.tar.gz", sep = "" ), "templib", repos = NULL, type = "source" )
-    require( pkg, "templib", character.only = TRUE )
+    dir.create(td)
+    file.copy(system.file("unitTests", pkg, package = "Rcpp"), td, recursive = TRUE)
+    setwd(td)
+    on.exit( { setwd(cwd); unlink(td, recursive = TRUE) } )
+    R <- shQuote(file.path( R.home(component = "bin"), "R"))
+    cmd <- paste(R, "CMD build", pkg)
+    system(cmd)
+    dir.create("templib")
+    install.packages(paste0(pkg, "_0.1.0.tar.gz"), "templib", repos = NULL, type = "source")
+    require(pkg, lib.loc = "templib", character.only = TRUE)
+    hello_world <- get("rcpp_hello_world", asNamespace(pkg))
+    checkEquals(hello_world(), list(c("foo", "bar"), c(0.0, 1.0)),
+                msg = "code from client package")
 
-    hello_world <- get( "rcpp_hello_world", asNamespace( pkg ) )
-    checkEquals( hello_world(), list( c("foo", "bar"), c(0.0, 1.0) ), msg = "code from client package" )
-
-    checkException( .Call("hello_world_ex", PACKAGE = pkg ), msg = "exception in client package" )
+    checkException(.Call("hello_world_ex", PACKAGE = pkg), msg = "exception in client package")
 }
 
-if ( .runThisTest && ! .onWindows ) {
-    test.client.packageA <- function(){
-        .client.package( "RcppTestA" )
+if (.runThisTest && ! .onWindows) {
+    test.client.testRcppPackage <- function() {
+        .client.package("testRcppPackage")
     }
 }