tests/testthat/test-utils-pipeline.R

In dymium-org/dymiumCore: A Toolkit for Building a Dynamic Microsimulation Model for Integrated Urban Modelling

test_that("extract_data", {
  create_toy_world()
  checkmate::expect_list(extract_data(world),
    types = "data.table", names = "unique"
  )
  checkmate::expect_list(extract_data(world$entities$Individual),
    types = "data.table", names = "unique"
  )
  checkmate::expect_list(extract_data(world$entities$Individual$database$attrs),
    types = "data.table", names = "unique"
  )
})