Minor coverage tweaks

Author: eddelbuettel

ChangeLog

@@ -1,3 +1,9 @@
+2025-08-26  Dirk Eddelbuettel  <edd@debian.org>
+
+	* inst/tinytest/test_misc.R: Add minimal test for EigenNbThreads()
+
+	* inst/include/RcppEigenWrap.h: Add #nocov comments
+
 2025-08-23  Dirk Eddelbuettel  <edd@debian.org>
 
 	* .github/workflows/ci.yaml (jobs): Re-enable coverage

DESCRIPTION

@@ -1,8 +1,8 @@
 Package: RcppEigen
 Type: Package
 Title: 'Rcpp' Integration for the 'Eigen' Templated Linear Algebra Library
-Version: 0.3.4.0.2
-Date: 2024-08-23
+Version: 0.3.4.0.2.1
+Date: 2025-08-26
 Authors@R: c(person("Doug", "Bates", role = "aut",
                     comment = c(ORCID = "0000-0001-8316-9503")),
              person("Dirk", "Eddelbuettel", role = c("aut", "cre"), email = "edd@debian.org",

inst/include/RcppEigenWrap.h

@@ -1,8 +1,7 @@
-// -*- mode: C++; c-indent-level: 4; c-basic-offset: 4; tab-width: 4 -*-
-//
+
 // RcppEigenWrap.h: Rcpp wrap methods for Eigen matrices, vectors and arrays
 //
-// Copyright (C) 2011 - 2022   Douglas Bates, Dirk Eddelbuettel and Romain Francois
+// Copyright (C) 2011 - 2025   Douglas Bates, Dirk Eddelbuettel and Romain Francois
 //
 // This file is part of RcppEigen.
 //
@@ -39,7 +38,7 @@ namespace Rcpp{
             bool needs_dim = T::ColsAtCompileTime != 1;
             R_xlen_t m = obj.rows(), n = obj.cols();
             if (needs_dim && (m > INT_MAX || n > INT_MAX)) {
-                Rcpp::stop("array dimensions cannot exceed INT_MAX");
+                Rcpp::stop("array dimensions cannot exceed INT_MAX");   // #nocov
             }
             R_xlen_t size = m * n;
             typename Eigen::internal::conditional<
@@ -50,13 +49,13 @@ namespace Rcpp{
                 const T&>::type objCopy(obj);
             SEXP ans = PROTECT(::Rcpp::wrap(objCopy.data(),
                                             objCopy.data() + size));
-            if (needs_dim) {
+            if (needs_dim) {    		// #nocov start
                 SEXP dd = PROTECT(::Rf_allocVector(INTSXP, 2));
                 int *d = INTEGER(dd);
                 d[0] = m;
                 d[1] = n;
                 ::Rf_setAttrib(ans, R_DimSymbol, dd);
-                UNPROTECT(1);
+                UNPROTECT(1);			// #nocov end
             }
             UNPROTECT(1);
             return ans;

inst/tinytest/test_misc.R

@@ -1,6 +1,6 @@
 #!/usr/bin/r -t
 #
-# Copyright (C) 2021  Dirk Eddelbuettel
+# Copyright (C) 2021-2025  Dirk Eddelbuettel
 #
 # This file is part of RcppEigen
 #
@@ -27,6 +27,8 @@ eig <- RcppEigen:::eigen_version(TRUE)
 expect_equal(class(eig), "integer")
 expect_equal(length(eig), 1L)
 expect_equal(class(RcppEigen:::Eigen_SSE()), "logical")
+nt <- RcppEigen:::EigenNbThreads()
+expect_true(nt >= 0)
 
 ## -- R/flags.R
 cxxflags <- RcppEigen:::RcppEigenCxxFlags()