additional tests

Author: eddelbuettel

.Rbuildignore

@@ -11,3 +11,5 @@ debian
 ^.editorconfig$
 ^eigen-?\.?\.?
 ^\.github
+^\.codecov.yml
+^\.covrignore

ChangeLog

@@ -1,3 +1,10 @@
+2021-06-07  Dirk Eddelbuettel  <[email protected]>
+
+	* inst/tinytest/test_misc.R: New test file
+	* inst/tinytest/test_fastLm.R: Added tests
+
+	* .Rbuildignore: Add .covignore and .codecov.yml
+
 2021-06-06  Dirk Eddelbuettel  <[email protected]>
 
 	* README.md: Added coverage badge

inst/tinytest/test_fastLm.R

@@ -54,3 +54,12 @@ fit <- lm(log(Volume) ~ log(Girth), data=trees)
 expect_equal(flm$coefficients, coef(fit), info="fastLm.formula.coef")
 expect_equal(as.numeric(flm$se), as.numeric(coef(summary(fit))[,2]),
             info="fastLm.formula.stderr")
+
+## also tickle print and predict methods
+expect_stdout(print(flm))
+expect_stdout(print(summary(flm)))
+vec <- predict(flm, newdata=data.frame(Girth=c(1,2,3), Volume=c(2,3,4)))
+expect_equal(class(vec), "numeric")
+expect_equal(length(vec), 3L)
+vec <- predict(flm, newdata=NULL)
+expect_equal(vec, fitted(flm))

inst/tinytest/test_misc.R

@@ -0,0 +1,34 @@
+#!/usr/bin/r -t
+#
+# Copyright (C) 2021  Dirk Eddelbuettel
+#
+# This file is part of RcppEigen
+#
+# RcppEigen is free software: you can redistribute it and/or modify it
+# under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 2 of the License, or
+# (at your option) any later version.
+#
+# RcppEigen is distributed in the hope that it will be useful, but
+# WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with RcppEigen.  If not, see <http://www.gnu.org/licenses/>.
+
+library(RcppEigen)
+
+## -- src/RcppEigen.cpp
+eig <- RcppEigen:::eigen_version(FALSE)
+expect_equal(length(eig), 3)           # major minor patch
+expect_equal(names(eig), c("major","minor","patch"))
+eig <- RcppEigen:::eigen_version(TRUE)
+expect_equal(class(eig), "integer")
+expect_equal(length(eig), 1L)
+expect_equal(class(RcppEigen:::Eigen_SSE()), "logical")
+
+## -- R/flags.R
+cxxflags <- RcppEigen:::RcppEigenCxxFlags()
+expect_true(is.character(cxxflags))
+expect_stdout(RcppEigen:::CxxFlags())