tests/testthat/test-indicator_jobs.R

In icra/edibleCity: Modeling Urban Agriculture at City Scale

scenario <- set_scenario(city_example, pCommercial = 1, quiet = TRUE)

test_that("edible_area works properly", {
  edible_jobs(scenario, area_col = "edible_area")[[2]] %>%
    expect_lt(edible_jobs(scenario, area_col = "area")[[2]])
})

test_that("randomization is working", {
  result <- edible_jobs(scenario)
  expect_lt(result[[1]], result[[2]])
  expect_lt(result[[2]], result[[3]])
})

test_that("verbose TRUE returns a vector of length 1000", {
  edible_jobs(scenario, verbose = TRUE) %>%
    expect_length(1000)
})