Merge pull request #1008 from RcppCore/bugfix/expose_class_test

Bugfix/expose class test (closes #1006)

Author: eddelbuettel

ChangeLog

@@ -1,3 +1,9 @@
+2019-10-27  Dirk Eddelbuettel  <[email protected]>
+
+	* DESCRIPTION (Version, Date): Roll minor version
+
+	* inst/unitTests/runit.exposeClass.R: Updated to pass with r-devel
+
 2019-10-26  Dirk Eddelbuettel  <[email protected]>
 
 	* vignettes/Rcpp-package.Rnw: Another wrapper

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: Rcpp
 Title: Seamless R and C++ Integration
-Version: 1.0.2.3
-Date: 2019-10-20
+Version: 1.0.2.4
+Date: 2019-10-27
 Author: Dirk Eddelbuettel, Romain Francois, JJ Allaire, Kevin Ushey, Qiang Kou,
  Nathan Russell, Douglas Bates and John Chambers
 Maintainer: Dirk Eddelbuettel <[email protected]>

inst/unitTests/runit.exposeClass.R

@@ -46,8 +46,14 @@ class foo {
         ## create package
         Rcpp.package.skeleton(pkg_name, path=path, environment = environment(),
                               example_code = FALSE, module = TRUE)
+        ## R 4.0.0 (currently in development) is stricter about the NAMESPACE and wants
+        ##  - an actual function behind the export declaration we end up with here
+        ##  - an export declaration for the class exposed and check below
+        ## so we provide both to comply (and also no longer delete from src/ and R/)
+        cat("Rcpp.fake.fun <- function() {}", file=file.path(path, pkg_name, "R", "fakefun.R"))
+        cat("export(\"fooR\")", append=TRUE, file=file.path(path, pkg_name, "NAMESPACE"))
+
         on.exit(unlink(pkg_path, recursive=TRUE))
-        file.remove(list.files(c(src_path, R_path), full.names = TRUE))
         cat(foo_header, file = file.path(src_path, "foo.h"))
 
         ## check that result of exposeClass compiles and runs properly

tests/doRUnit.R

@@ -63,6 +63,7 @@ if (requireNamespace("RUnit", quietly=TRUE) &&
     tests <- runTestSuite(testSuite)	# Run tests
 
     printTextProtocol(tests)			# Print results
+    printTextProtocol(tests, file="/tmp/RcppTestLog.txt")
 
     ## Return success or failure to R CMD CHECK
     if (getErrors(tests)$nFail > 0) stop("TEST FAILED!")