R Under development (unstable) (2025-11-16 r89026 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2025 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> library(testthat)
> library(rtmpinv)
> 
> test_check("rtmpinv")
Saving _problems/test-tmpinv-28.R
[ FAIL 1 | WARN 10 | SKIP 0 | PASS 77 ]

══ Failed tests ════════════════════════════════════════════════════════════════
── Error ('test-tmpinv.R:22:3'): tmpinv works for AP/TM on symmetric 20x20 matrix ──
Error in `La.svd(x, nu, nv)`: error code 1 from Lapack routine 'dgesdd'
Backtrace:
     ▆
  1. └─rtmpinv::tmpinv(...) at test-tmpinv.R:22:3
  2.   ├─base::suppressWarnings(...)
  3.   │ └─base::withCallingHandlers(...)
  4.   ├─base::do.call(...)
  5.   └─rtmpinv (local) `<fn>`(...)
  6.     ├─base::do.call(...)
  7.     └─rclsp (local) `<fn>`(...)
  8.       ├─base::do.call(...)
  9.       └─rclsp (local) `<fn>`(...)
 10.         ├─base::do.call(...)
 11.         └─rclsp (local) `<fn>`(...)
 12.           └─MASS::ginv(object$Z %*% crossprod(object$A) %*% object$Z, tol = if (is.null(rcond)) sqrt(.Machine$double.eps) else if (isTRUE(rcond)) object$tolerance else rcond)
 13.             └─base::svd(X)
 14.               └─base::La.svd(x, nu, nv)

[ FAIL 1 | WARN 10 | SKIP 0 | PASS 77 ]
Error:
! Test failures.
Execution halted