tests/testthat/test_water_divert.R

test_that("water_divert_works", {
  expect_equal(water_divert(diversion = 0), 0)
  expect_equal(water_divert(diversion = 1), 396.6)
  expect_true((water_divert(diversion = 10)) > (water_divert(diversion = 5)))
})
AllisonBaileyR14/nature_package documentation built on March 22, 2021, 11:02 p.m.