tests/testthat/test-fnc_round_DIN1333.R

testthat::test_that(
  desc = "round_DIN1333 works",
  code = {
    x <- c(-2.5,2.5,3.5)
    eCerto:::round_DIN1333(x)
    testthat::expect_equal(eCerto:::round_DIN1333(x), c(-3, 3, 4))
  }
)

Try the eCerto package in your browser

Any scripts or data that you put into this service are public.

eCerto documentation built on April 12, 2025, 9:13 a.m.