Running 'tinytest.R' [7s/15s]
Running the tests in 'tests/tinytest.R' failed.
Complete output:
  > 
  > 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)
  + }
  
  Running test-benchmark.R..............    0 tests    
  Running test-benchmark.R..............    0 tests    
  Running test-benchmark.R..............    0 tests    
  Running test-benchmark.R..............    1 tests [0;32mOK[0m [0;34m2.9s[0m
  
  Running test-boot.R...................    0 tests    
  Running test-boot.R...................    0 tests    
  |0%                 |25%                |50%                |75%           100%|
  --------------------------------------------------------------------------------
  ////////////////////////////////////////////////////////////////////////////////
  
  Running test-boot.R...................    0 tests    
  Running test-boot.R...................    0 tests    
  Running test-boot.R...................    0 tests    
  Running test-boot.R...................    0 tests    [0;34m7.6s[0m
  [0;36m6ms[0m
  
  Running test-ergm_blockdiagonal.R.....    0 tests    
  Running test-ergm_blockdiagonal.R.....    0 tests    
  Running test-ergm_blockdiagonal.R.....    0 tests    
  Running test-ergm_blockdiagonal.R.....    0 tests    Error in if (ncol(EATTRS)) EATTRS <- as.list(EATTRS) else EATTRS <- NULL : 
    argument is of length zero
  Calls: <Anonymous> ... run_test_dir -> lapply -> FUN -> eval -> eval -> blockdiagonalize
  Execution halted