tinytest conversion step three: convert runner, use tinytest

Author: eddelbuettel

.travis.yml

@@ -11,7 +11,7 @@ before_install:
   - ./run.sh bootstrap
 
 install:
-  - ./run.sh install_aptget r-cran-rcpp r-cran-matrix r-cran-inline r-cran-runit r-cran-pkgkitten r-cran-microbenchmark
+  - ./run.sh install_aptget r-cran-rcpp r-cran-matrix r-cran-inline r-cran-tinytest r-cran-pkgkitten r-cran-microbenchmark
 
 script:
   - ./run.sh run_tests

ChangeLog

@@ -1,5 +1,10 @@
 2019-10-30  Dirk Eddelbuettel  <[email protected]>
 
+	* DESCRIPTION (Suggests): Switch from RUnit to tinytest
+	* .travis.yml (install): Ditto
+
+	* tests/tinytest.R: Converted to tinytest
+
         * test_sparse.R: Converted to tinytest
 	* cpp/sparse.cpp: Added
 

DESCRIPTION

@@ -25,6 +25,6 @@ Depends: R (>= 2.15.1)
 LazyLoad: yes
 LinkingTo: Rcpp
 Imports: Matrix (>= 1.1-0), Rcpp (>= 0.11.0), stats, utils
-Suggests: inline, RUnit, pkgKitten, microbenchmark
+Suggests: inline, tinytest, pkgKitten, microbenchmark
 URL: http://dirk.eddelbuettel.com/code/rcpp.eigen.html
 BugReports: https://github.com/RcppCore/RcppEigen/issues

tests/tinytest.R

@@ -1,33 +1,15 @@
-#### doRUnit.R --- Run RUnit tests
-####------------------------------------------------------------------------
 
-### borrowed from package fUtilities in RMetrics
-### http://r-forge.r-project.org/plugins/scmsvn/viewcvs.php/pkg/fUtilities/tests/doRUnit.R?rev=1958&root=rmetrics&view=markup
+if (requireNamespace("tinytest", quietly=TRUE) &&
+    utils::packageVersion("tinytest") >= "1.0.0") {
 
-### Originally follows Gregor Gojanc's example in CRAN package  'gdata'
-### and the corresponding section in the R Wiki:
-###  http://wiki.r-project.org/rwiki/doku.php?id=developers:runit
+    ## Set a seed to make the test deterministic
+    set.seed(42)
 
-### MM: Vastly changed:  This should also be "runnable" for *installed*
-##              package which has no ./tests/
-## ----> put the bulk of the code e.g. in  ../inst/unitTests/runTests.R :
+    ## R makes us to this
+    Sys.setenv("R_TESTS"="")
 
-if(require("RUnit", quietly = TRUE)) {
-    pkg <- "RcppEigen"
-
-    require( pkg, character.only=TRUE)
-
-    path <- system.file("unitTests", package = pkg)
-
-    stopifnot(file.exists(path), file.info(path.expand(path))$isdir)
-
-    ## without this, we get unit test failures
-    Sys.setenv( R_TESTS = "" )
-
-    RcppEigen.unit.test.output.dir <- getwd()
-
-    source(file.path(path, "runTests.R"), echo = TRUE)
-
-} else {
-    print( "package RUnit not available, cannot run unit 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("RcppEigen", ncpu=getOption("Ncpus", 1))
 }