tests/testthat/test-everything.R

test_that("Calculations are right", {
  expect_equal(champion_tree(1, 1, 4)$points, 3)
  expect_true(is.na(champion_tree(1, 1, NA)$points))
  expect_error(champion_tree("a", 1, 1))
})
eheinzen/championtrees documentation built on Feb. 21, 2020, 2:01 a.m.