Running ‘blkdiag.R’ [0s/1s]
  Running ‘ceil.R’ [0s/1s]
  Running ‘chebyshev.R’ [0s/1s]
  Running ‘combs.R’ [0s/1s]
  Running ‘compan.R’ [0s/1s]
  Running ‘cond.R’ [0s/1s]
  Running ‘conv.R’ [0s/1s]
  Running ‘cross.R’ [0s/1s]
  Running ‘crossn.R’ [0s/1s]
  Running ‘deval.R’ [0s/1s]
  Running ‘diag.R’ [0s/1s]
  Running ‘distmat.R’ [0s/1s]
  Running ‘dot.R’ [0s/1s]
  Running ‘eig.R’ [0s/1s]
  Running ‘factors.R’ [0s/1s]
  Running ‘find.R’ [0s/1s]
  Running ‘findintervals.R’ [0s/1s]
  Running ‘findpeaks.R’ [0s/1s]
  Running ‘flipdim.R’ [0s/1s]
  Running ‘fnorm.R’ [0s/1s]
  Running ‘gamma.R’ [0s/1s]
  Running ‘gradient.R’ [0s/1s]
  Running ‘hadamard.R’ [0s/1s]
  Running ‘hankel.R’ [0s/1s]
  Running ‘hilb.R’ [0s/1s]
  Running ‘horner.R’ [0s/1s]
  Running ‘hypot.R’ [0s/1s]
  Running ‘interp1.R’ [0s/1s]
  Running ‘interp2.R’ [0s/1s]
  Running ‘inv.R’ [1s/2s]
  Running ‘isprime.R’ [0s/1s]
  Running ‘lambertW.R’ [0s/1s]
  Running ‘linspace.R’ [0s/1s]
  Running ‘magic.R’ [0s/1s]
  Running ‘meshgrid.R’ [0s/1s]
  Running ‘mldivide.R’ [0s/1s]
  Running ‘mod.R’ [0s/1s]
  Running ‘mode.R’ [0s/1s]
  Running ‘nextpow2.R’ [0s/1s]
  Running ‘norm.R’ [0s/1s]
  Running ‘nthroot.R’ [0s/1s]
  Running ‘pascal.R’ [0s/1s]
  Running ‘pchip.R’ [0s/1s]
  Running ‘perms.R’ [0s/1s]
  Running ‘piecewise.R’ [0s/1s]
  Running ‘poly.R’ [0s/1s]
  Running ‘polyadd.R’ [0s/1s]
  Running ‘polyarea.R’ [0s/1s]
  Running ‘polyder.R’ [0s/1s]
  Running ‘polyfit.R’ [0s/1s]
  Running ‘polyint.R’ [0s/1s]
  Running ‘polymul.R’ [0s/1s]
  Running ‘polyval.R’ [0s/1s]
  Running ‘pow2.R’ [0s/1s]
  Running ‘primes.R’ [0s/1s]
  Running ‘quad.R’ [0s/1s]
  Running ‘quadrature.R’ [1s/1s]
  Running ‘rank.R’ [0s/1s]
  Running ‘rectint.R’ [0s/1s]
  Running ‘regexp.R’ [0s/1s]
  Running ‘roots.R’ [0s/1s]
  Running ‘size.R’ [0s/1s]
  Running ‘std.R’ [0s/1s]
  Running ‘strfind.R’ [0s/0s]
  Running ‘strings.R’ [0s/1s]
  Running ‘subspace.R’ [0s/1s]
  Running ‘trace.R’ [0s/1s]
  Running ‘trapz.R’ [0s/1s]
  Running ‘vander.R’ [0s/1s]
  Running ‘wilkinson.R’ [0s/1s]
Running the tests in ‘tests/inv.R’ failed.
Complete output:
  > ###
  > ### eig.R  +++ Test suite +++
  > ###
  > 
  > 
  > test.inv <- function(input, expected) {
  +    output <- do.call(getFromNamespace("inv", "pracma"), input)
  +    identical(output, expected)
  + }
  > 
  > inv.expected.empty <- matrix(0, nrow=0, ncol=0)
  > inv.expected.singl <- matrix(Inf, 2, 2)
  > inv.expected.mat1  <- matrix(c(3,-3,1, -3,5,-2, 1,-2,1), 3, 3)
  > 
  > test.inv(list(a=c()), inv.expected.empty)
  [1] TRUE
  > test.inv(list(a=matrix(1, 2, 2)), inv.expected.singl)
  [1] TRUE
  Warning message:
  In (function (a)  : Matrix appears to be singular.
  > test.inv(list(a=matrix(c(1,1,1, 1,2,3, 1,3,6), 3, 3)), inv.expected.mat1)
   ----------- FAILURE REPORT -------------- 
   --- failure: the condition has length > 1 ---
   --- srcref --- 
  : 
   --- package (from environment) --- 
  pracma
   --- call from context --- 
  (function (a) 
  {
      if (length(a) == 0) 
          return(matrix(0, nrow = 0, ncol = 0))
      if ((!is.numeric(a) && !is.complex(a)) || !is.matrix(a)) 
          stop("Argument 'a' must be a numeric or complex matrix.")
      if (nrow(a) != ncol(a)) 
          stop("Matrix 'a' must be square.")
      e <- try(b <- solve(a), silent = TRUE)
      if (class(e) == "try-error") {
          warning("Matrix appears to be singular.")
          b <- rep(Inf, length(a))
          dim(b) <- dim(a)
      }
      return(b)
  })(a = c(1, 1, 1, 1, 2, 3, 1, 3, 6))
   --- call from argument --- 
  if (class(e) == "try-error") {
      warning("Matrix appears to be singular.")
      b <- rep(Inf, length(a))
      dim(b) <- dim(a)
  }
   --- R stacktrace ---
  where 1: (function (a) 
  {
      if (length(a) == 0) 
          return(matrix(0, nrow = 0, ncol = 0))
      if ((!is.numeric(a) && !is.complex(a)) || !is.matrix(a)) 
          stop("Argument 'a' must be a numeric or complex matrix.")
      if (nrow(a) != ncol(a)) 
          stop("Matrix 'a' must be square.")
      e <- try(b <- solve(a), silent = TRUE)
      if (class(e) == "try-error") {
          warning("Matrix appears to be singular.")
          b <- rep(Inf, length(a))
          dim(b) <- dim(a)
      }
      return(b)
  })(a = c(1, 1, 1, 1, 2, 3, 1, 3, 6))
  where 2: do.call(getFromNamespace("inv", "pracma"), input)
  where 3: test.inv(list(a = matrix(c(1, 1, 1, 1, 2, 3, 1, 3, 6), 3, 3)), 
      inv.expected.mat1)
  
   --- value of length: 2 type: logical ---
  [1] FALSE FALSE
   --- function from context --- 
  function (a) 
  {
      if (length(a) == 0) 
          return(matrix(0, nrow = 0, ncol = 0))
      if ((!is.numeric(a) && !is.complex(a)) || !is.matrix(a)) 
          stop("Argument 'a' must be a numeric or complex matrix.")
      if (nrow(a) != ncol(a)) 
          stop("Matrix 'a' must be square.")
      e <- try(b <- solve(a), silent = TRUE)
      if (class(e) == "try-error") {
          warning("Matrix appears to be singular.")
          b <- rep(Inf, length(a))
          dim(b) <- dim(a)
      }
      return(b)
  }
  <bytecode: 0x55a4153c4908>
  <environment: namespace:pracma>
   --- function search by body ---
  Function inv in namespace pracma has this body.
   ----------- END OF FAILURE REPORT -------------- 
  Fatal error: the condition has length > 1