tests/testthat/test-summaries.R

In readsdr: Translate Models from System Dynamics Software into 'R'

mdl <- list(description = list(
  constants = list(
    list(name = "birth_rate",
         value = 0.1),
    list(name = "death_rate",
         value = 0.1)
  ),
  levels = list(
    list(name = "Population",
         initValue = 100),
    list(name = "Deaths",
         initValue = 0)
  )))

test_that("sd_constants() returns the expected data frame", {
  expect_is(sd_constants(mdl), "data.frame")
  expect_equal(sd_constants(mdl),
               data.frame(name = c("birth_rate", "death_rate"),
                          value = c(0.1,0.1)))
})

test_that("sd_stocks() returns the expected data frame", {
  expect_is(sd_stocks(mdl), "data.frame")
  expect_equal(sd_stocks(mdl),
               data.frame(name       = c("Population", "Deaths"),
                          init_value = c(100, 0)))

  filepath    <- system.file("models/", "SIR.stmx", package = "readsdr")
  mdl         <- read_xmile(filepath)
  actual_df   <- sd_stocks(mdl)
  expected_df <- data.frame(name       = "Susceptible", "Infected", "Recovered",
                            init_value = c(990, 10, 0))
})