
context("SIR epidemics model on a network")

test_that("SIR works", {

  set.seed(42)
  library(digest)
  library(igraph)

  g <- sample_gnm(50, 50)
  res <- sir(g, beta=5, gamma=1, no.sim=10)
  if (.Machine$sizeof.pointer == 4) {
    expect_that(digest(res), equals("b73a8ad03b832b3543f2f03d07330398"))
  } else {
    expect_that(digest(res), equals("bc42d0cbe0bb3321e83979c0432f9cea"))
  }
})

