tests/testthat/test_basic_functionality.R

context("Basic functionality")

library(magrittr)

test_that("simple definition can be correctly loaded", {
  expect_equal(
    deserialise("definition1.json") %>% run() %>% now(),
    9)
})



test_that("branching definition can be correctly loaded", {
  expect_equal(
    deserialise("definition1.json") %>% run() %>% now(),
    9)
})
r-simmer/simmer.json documentation built on May 26, 2019, 5:45 p.m.