tests/testthat/test-resource.R

In zizroc/villager: A Framework for Designing and Running Agent Based Models

# Unit tests for the resource class

test_that("the default constructor works", {
  res_name <- "fish"
  res_quantity <- 11
  test_resource <- resource$new(name = res_name, quantity = res_quantity)

  # Make sure that new agent's start at age 0
  testthat::expect_equal(test_resource$name, res_name)

  # Also make sure that they're alive
  testthat::expect_equal(test_resource$quantity, res_quantity)
})