tests/testthat/test-sum_matrix.R

In Alex-Fuster/network: Works with Netorks

test_that("matrix sum returns an error if its not a matrix",{
  x<-matrix(1,2,2)
  y<- "hello"
  sum_matrix(x)
  expect_equal(sum_matrix(x), 4)

  expect_error(sum_matrix(y,"Not a"))
})