tests/tinytest.R

In ergmito: Exponential Random Graph Models for Small Networks

if ( requireNamespace("tinytest", quietly=TRUE) ){
  
  expect_output <- function(x, pattern) {
    
    ans  <- paste(capture.output(eval(x)), collapse = "\n")
    test <- grepl(pattern, ans)
    
    tinytest::tinytest(
      result = test,
      call   = sys.call(sys.parent(1)),
      diff   = paste("Expected:", pattern, ". Returned:", ans)
    )
  }
  
  expect_lt <- function(a,b) {
    
    tinytest::tinytest(
      result = a < b,
      call   = sys.call(sys.parent(1)),
      diff   = paste("b - a = ", b - a)
    )
    
  }
  
  expect_length <- function(x,n) {
    
    tinytest::tinytest(
      result = length(x) == n,
      call   = sys.call(sys.parent(1)),
      diff   = paste("length(x) = ", length(x), " but expected ", n)
    )
    
  }
  
  options(ergmito_warning = FALSE)
  tinytest::test_package("ergmito")
  options(ergmito_warning = NULL)
}