tests/testthat/test-scenarios.R

In pct: Propensity to Cycle Tool

context("test-scenarios")

test_that("uptake_pct_govtarget(1,1) should be 0.04768831", {
  # need to compare some data
  expect_equal(uptake_pct_govtarget(1,1), 0.04768831)
  expect_error(uptake_pct_govtarget(LETTERS, letters))
  expect_message(uptake_pct_govtarget(1001, 2, verbose = TRUE))
})

test_that("uptake_pct_godutch(1,1) should be round(0.341359, digits = 5)", {
  # need to compare some data
  expect_equal(round(uptake_pct_godutch(1,1), digits = 2),
               0.37)
  expect_error(uptake_pct_godutch(LETTERS, letters))
  expect_message(uptake_pct_godutch(1001, 2, verbose = TRUE))
})