tests/testthat/test-reference.R

test_that("output is the same as expected", {
  reference <- readRDS(file.path("testdata", "reference.RDS"))
  markov <- markov()
  expect_equal(markov, reference)
})
HealthEconomicsHackathon/hermes6 documentation built on April 8, 2020, 1:47 p.m.