tests/testthat/test-size-reporting.R

In spatial-ews/spatialwarnings: Spatial Early Warning Signals of Ecosystem Degradation

# 
# 
# 

context("Test that matrix sizes are being correctly reported")

test_that("Correct sizes are reported", { 
  
  a <- generic_sews(serengeti)
  expect_true( any(grepl("size: 250x250", capture.output(print(a)))) )
  b <- indictest(a, 3)
  expect_true( any(grepl("size: 250x250", capture.output(print(b)))) )
  
  # List of matrices with different sizes
  a <- suppressWarnings({ generic_sews(arizona) })
  expect_true( any(grepl("(variable sizes)", capture.output(print(a)))) )
  b <- indictest(a, 3)
  expect_true( any(grepl("(variable sizes)", capture.output(print(b)))) )
  
})