be more specific about where we load the package from

Author: eddelbuettel

inst/unitTests/runit.binary.package.R

@@ -27,15 +27,16 @@ test.binary.testRcppPackage <- function() {
 
     if (.runThisTest && .onLinux && .onTravis) {
 
-        pkg <- "r-cran-testrcpppackage"
+        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(pkg, "_0.1.0-1_", arch, ".deb"))
+                             paste0(debpkg, "_0.1.0-1_", arch, ".deb"))
 
         if (file.exists(debfile)) {
             system(paste("sudo dpkg -i", debfile))
@@ -48,12 +49,14 @@ test.binary.testRcppPackage <- function() {
             ## [1] 0 1
 
             ## R> 
+
+            require(rpkg, lib.loc = "/usr/lib/R/site-library", character.only = TRUE)
+            hello_world <- get("rcpp_hello_world", asNamespace(rpkg))
 
-            res <- testRcppPackage:::rcpp_hello_world()
-            checkEquals(res, list(c("foo", "bar"), c(0.0, 1.0)),
+            checkEquals(hello_world(), list(c("foo", "bar"), c(0.0, 1.0)),
                         msg = "code from binary package")
 
-            system(paste("sudo dpkg --purge", pkg))
+            system(paste("sudo dpkg --purge", debpkg))
         }
     }
 }