tests/testthat/test-round_five_up.R

In dfeR: Common Department for Education Analysis Tasks

test_that("Rounds fives up", {
  expect_equal(round_five_up(285, -1), 290)
  expect_equal(round_five_up(2.85), 3)
  expect_equal(round_five_up(2.5), 3)
  expect_equal(round_five_up(2.85, 1), 2.9)
})

test_that("Rounds other numbers", {
  expect_equal(round_five_up(283.54, -2), 300)
  expect_equal(round_five_up(283.54, -1), 280)
  expect_equal(round_five_up(283.234, 0), 283)
  expect_equal(round_five_up(283.234), 283)
  expect_equal(round_five_up(2.86, 1), 2.9)
  expect_equal(round_five_up(2.86, 2), 2.86)
})

test_that("Input validation", {
  expect_error(
    round_five_up("ten", "10"),
    "both input arguments must be numeric"
  )
  expect_error(
    round_five_up(12, "ten"),
    "the decimal places input must be numeric"
  )
  expect_error(
    round_five_up(12, "10"),
    "the decimal places input must be numeric"
  )
  expect_error(
    round_five_up("twelve", 10),
    "the input number to be rounded must be numeric"
  )
  expect_error(
    round_five_up("12", 10),
    "the input number to be rounded must be numeric"
  )
})