Additional test predicate and some #nocov edits

Author: eddelbuettel

ChangeLog

@@ -1,3 +1,9 @@
+2025-12-30  Dirk Eddelbuettel  <[email protected]>
+
+	* inst/tinytest/test_misc.R: Additional tests predicate
+
+	* R/init.R: Some additional #nocov tags
+
 2025-12-29  Dirk Eddelbuettel  <[email protected]>
 
 	* DESCRIPTION: Roll micro release and date

R/init.R

@@ -19,14 +19,14 @@
 
 .pkgenv <- new.env(parent=emptyenv())
 
-.onLoad <- function(libname, pkgname) {
+.onLoad <- function(libname, pkgname) {						# nocov start
     ## simple fallback: 'Ncpus' (if set) or else all cpus seen by OpenMP
     ncores <- getOption("Ncpus", EigenNbThreads())
     ## consider OMP_THREAD_LIMIT (cf Writing R Extensions), gets NA if envvar unset
     ompcores <- as.integer(Sys.getenv("OMP_THREAD_LIMIT"))
     ## keep the smaller value, omitting NA
     ncores <- min(na.omit(c(ncores, ompcores)))
-    .pkgenv[["nb_threads"]] <- ncores		# #nocov
+    .pkgenv[["nb_threads"]] <- ncores
     RcppEigen_throttle_cores(ncores)
 }
 
@@ -57,5 +57,5 @@ RcppEigen_throttle_cores <- function(n) {
 
 ##' @rdname RcppEigen_throttle_cores
 RcppEigen_reset_cores <- function() {
-    EigenSetNbThreads(.pkgenv[["nb_threads"]])
+    EigenSetNbThreads(.pkgenv[["nb_threads"]])				# nocov end
 }

inst/tinytest/test_misc.R

@@ -26,8 +26,10 @@ expect_equal(names(eig), c("major","minor","patch"))
 eig <- RcppEigen:::eigen_version(TRUE)
 expect_equal(class(eig), "integer")
 expect_equal(length(eig), 1L)
+eigt <- RcppEigen:::eigen_version_typed()
+expect_true(inherits(eigt, "package_version"))
 expect_equal(class(RcppEigen:::Eigen_SSE()), "logical")
-nt <- RcppEigen:::EigenNbThreads()
+nt <- RcppEigen::EigenNbThreads()
 expect_true(nt >= 0)
 
 ## -- R/flags.R