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 June 13, 2019, 7:30 a.m.