tests/testthat/test-package.r

In eddington: Compute a Cyclist's Eddington Number

context("Testing output")

simdata <- readRDS("simdata.rds")
refdata <- readRDS("refdata.rds")

E_ref <- refdata[length(refdata)]

test_that("E_num works",{

  expect_identical(E_num(simdata), E_ref)

})

test_that("E_cum works",{

  expect_identical(E_cum(simdata), refdata)

})


test_that("E_sat works",{

  expect_true(E_sat(simdata, E_ref))
  expect_false(E_sat(simdata, E_ref + 1L))

})

test_that("E_next works",{

  x <- E_next(simdata)

  ref_next <- x$E + 1L

  enough_rides <- c(simdata, rep(ref_next, x$req))
  not_enough_rides <- c(simdata, rep(ref_next, x$req - 1))

  expect_true(E_sat(enough_rides, ref_next))
  expect_false(E_sat(not_enough_rides, ref_next))

})

test_that("E_req works",{

  x <- E_next(simdata)

  ref_next <- x$E + 1L

  expect_equal(E_req(simdata, ref_next), x$req)

})