context("simple simulation") test_that("simple simulation output is valid", { expect_true(validObject(simSimple())) })