tests/testthat/test_setup.r

In milumtextiles/itemsim: Simulate Linen Rental

context("test_setup")

test_that("Setup creates proper state", {
    state <- inialize_state()

    expect_true("population"  %in% names(state))
    expect_true("locations"   %in% names(state))
    expect_true("movement"    %in% names(state))
    expect_true("base_time"   %in% names(state))
})