tests/testthat/test-closures.R

In svd: Interfaces to Various State-of-Art SVD and Eigensolvers

library(testthat)
library(svd)

as.extmat <- function(m) {
  m <- as.matrix(m)

  extmat(mul = function(x) m %*% x,
         tmul = function(x) x %*% m,
         env = environment(),
         ncol = ncol(m), nrow = nrow(m))
}


test_that("Transposition (using closures) properly work", {
  set.seed(1)
  m <- matrix(rnorm(12), 3, 4)

  e <- as.extmat(m)

  expect_equal(as.matrix(t(e)), t(m))
  expect_equal(as.matrix(t(t(e))), m)
})