tests/testthat/test-ieee-754.R

In roundwork: Rounding Infrastructure

x <- runif(100000, min = 1900, max = 2100)
x_up   <- x %>% round_ties_to_away(2)   %>% trunc_reverse()
x_down <- x %>% round_down(2) %>% trunc_reverse()

# Avoid whole numbers that will be rounded up, artificially leading to a
# difference of 1:
x_up <- x_up[x_up != 0]
x_down <- x_down[x_down != 0]



# Threshold 5 (via the wrappers) ------------------------------------------

test_that("`round_ties_to_away()` works correctly", {
  expect_equal(
    x_up,
    x_up %>% trunc_reverse() %>% round_ties_to_away(2)
  )
})

test_that("`round_down()` works correctly", {
  expect_equal(
    x_down,
    x_down %>% trunc_reverse() %>% round_down(2)
  )
})