test new getRcppVersion function

Author: eddelbuettel

ChangeLog

@@ -9,6 +9,8 @@
 	* src/internal.h: Register new version string exporter
 	* src/rcpp_init.cpp (callEntries[]): Idem
 
+	* inst/unitTests/runit.misc.R (test.getRcppVersion): test new function
+
 2019-03-23  Ralf Stubner  <[email protected]>
 
 	* vignettes/Rcpp-modules.Rmd: Describe RCPP_EXPOSED_* macros

R/tools.R

@@ -24,11 +24,11 @@ forceAssignInNamespace <- function(x, value, env) {
     is_ns <- isNamespace(env)
     unlocker <- get("unlockBinding", baseenv())
     if (is_ns && exists(x, env) && bindingIsLocked(x, env)) {
-        unlocker(x, env)
+        unlocker(x, env)				# #nocov
     }
     assign(x, value, env)
     if (is_ns) {
-        lockBinding(x, env)
+        lockBinding(x, env)				# #nocov
     }
 }
 

inst/unitTests/runit.misc.R

@@ -1,6 +1,6 @@
 #!/usr/bin/env r
 #
-# Copyright (C) 2010 - 2017  Dirk Eddelbuettel and Romain Francois
+# Copyright (C) 2010 - 2019  Dirk Eddelbuettel and Romain Francois
 #
 # This file is part of Rcpp.
 #
@@ -214,4 +214,11 @@ if (.runThisTest) {
         checkTrue(nchar(Rcpp:::bib()) > 0, msg="bib file")
     }
 
+    test.getRcppVersion <- function() {
+        checkTrue(inherits(getRcppVersion(), "package_version"),
+                  msg="package_version object")
+        checkTrue(getRcppVersion(devel=TRUE) >= getRcppVersion(devel=FALSE),
+                  msg="dev greater equal release")
+    }
+
 }