tests/testthat/test-indicator_green_capita.R

In icra/edibleCity: Modeling Urban Agriculture at City Scale

test_that("Green per capita is lower when private is FALSE", {
  private_true <- green_capita(city_example, inhabitants = 6000, private = TRUE)
  private_false <- green_capita(city_example, inhabitants = 6000, private = FALSE)

  expect_gt(private_true, private_false)
})

test_that("Verbose and neighbourhoods return a tibble", {
  green_capita(city_example,
               neighbourhoods = neighbourhoods_example,
               inh_col = "inhabitants",
               name_col = "name",
               verbose = TRUE) %>%
    expect_s3_class("tbl")
})

test_that("min_inh is working", {
    green_capita(city_example,
                 neighbourhoods = neighbourhoods_example,
                 inh_col = "inhabitants",
                 name_col = "name",
                 min_inh = min(neighbourhoods_example$inhabitants),
                 verbose = TRUE) %>%
      nrow() %>%
      expect_equal(nrow(neighbourhoods_example)-1)
})

test_that("private as a vector works", {
  expect_equal(
    green_capita(city_example, inhabitants = 6000, private = TRUE),
    green_capita(city_example, inhabitants = 6000, private = c("Normal garden", "Edible private garden"))
  )
})

test_that("when private is true, green_capita is not lower", {
  expect_gt(
    set_scenario(city_example, pCommercial = 0.5, quiet = TRUE) %>%
      green_capita(inhabitants = 6000, private = TRUE),
    green_capita(city_example, inhabitants = 6000, private = TRUE)
  )
})