tinytest step one: enable, add runner and initial test

Author: eddelbuettel

DESCRIPTION

@@ -16,7 +16,7 @@ Description: The 'Rcpp' package provides R functions as well as C++ classes whic
  <doi:10.1080/00031305.2017.1375990>); see 'citation("Rcpp")' for details.
 Depends: R (>= 3.0.0)
 Imports: methods, utils
-Suggests: RUnit, inline, rbenchmark, knitr, rmarkdown, pinp, pkgKitten (>= 0.1.2)
+Suggests: RUnit, tinytest, inline, rbenchmark, knitr, rmarkdown, pinp, pkgKitten (>= 0.1.2)
 VignetteBuilder: knitr
 URL: http://www.rcpp.org, http://dirk.eddelbuettel.com/code/rcpp.html, https://github.com/RcppCore/Rcpp
 License: GPL (>= 2)

inst/tinytest/cpp/rcppversion.cpp

@@ -0,0 +1,21 @@
+#include <Rcpp.h>
+
+// [[Rcpp::export]]
+Rcpp::List checkVersion(Rcpp::IntegerVector v) {
+
+    // incoming, we expect v to have been made by
+    //     as.integer(unlist(strsplit(as.character(packageVersion("Rcpp")), "\\.")))
+    // yielding eg
+    //     c(1L, 0L, 3L, 1L)
+
+    // ensure that length is four, after possibly appending 0
+    if (v.size() == 3) v.push_back(0);
+    if (v.size() != 4) Rcpp::stop("Expect vector with four elements.");
+
+    return Rcpp::List::create(Rcpp::Named("def_ver")     = RCPP_VERSION,
+                              Rcpp::Named("def_str")     = RCPP_VERSION_STRING,
+                              Rcpp::Named("cur_ver")     = Rcpp_Version(v[0], v[1], v[2]),
+                              Rcpp::Named("def_dev_ver") = RCPP_DEV_VERSION,
+                              Rcpp::Named("def_dev_str") = RCPP_DEV_VERSION_STRING,
+                              Rcpp::Named("cur_dev_ver") = RcppDevVersion(v[0], v[1], v[2], v[3]));
+}

inst/tinytest/test_version.R

@@ -0,0 +1,32 @@
+
+library(Rcpp)
+
+Rcpp::sourceCpp("cpp/rcppversion.cpp")
+
+## we take packageVersion, make it a character variable, split it by dots and turn it to ints
+## note that v could now be a three or four element vector depending on what the package version is
+pv <- packageVersion("Rcpp")
+pvstr <- as.character(pv)
+v <- as.integer(unlist(strsplit(pvstr, "\\.")))
+
+## construct a release string from the first three elements, ie "1.0.3" from 1.0.3.1
+relstr <- as.character(as.package_version(paste(v[1:3], collapse=".")))
+
+
+## call C++ function returning list of six values, three each for 'release' and 'dev' version
+res <- checkVersion(v)
+
+
+## basic check: is the #defined version equal to the computed version (issue #1014)
+expect_equal(res$cur_ver, res$def_ver, info="current computed version equal defined version")
+
+## basic check: is the #defined string version equal to the computed string version (adjusting for rel)
+expect_equal(relstr, res$def_str, info="current computed version equal defined dev string")
+
+## additional checks if we are a dev version
+if (length(v) == 4) {
+    expect_equal(res$cur_dev_ver, res$def_dev_ver, info="current computed dev version greater equal defined dev version")
+
+    ## basic check: is #defined string version equal to computed string
+    expect_equal(pvstr, res$def_dev_str, info="current computed version equal defined dev string")
+}

tests/tinytest.R

@@ -0,0 +1,15 @@
+
+if (requireNamespace("tinytest", quietly=TRUE) &&
+    utils::packageVersion("tinytest") >= "1.0.0") {
+
+    ## Set a seed to make the test deterministic
+    set.seed(42)
+
+    ## R makes us to this
+    Sys.setenv("R_TESTS"="")
+
+    ## there are several more granular ways to test files in a tinytest directory,
+    ## see its package vignette; tests can also run once the package is installed
+    ## using the same command `test_package(pkgName)`, or by director or file
+    tinytest::test_package("Rcpp", ncpu=getOption("Ncpus", 1))
+}