tests/testthat/test-round5.R

context("round5")

test_that("Round works", {
  expect_equal(round5(.5 + 0:4), 1:5)
})

test_that("Round diff works", {
  expect_equal(round5(67.8 - 67.8/4, 1), 50.9)
})
tnedu/acct documentation built on Oct. 7, 2017, 9:07 p.m.