tests/testthat/test-round_to_fraction.R

In janitor: Simple Tools for Examining and Cleaning Dirty Data

test_that("round_to_fraction input requirements (confirm errors)", {
  expect_error(
    round_to_fraction(x="A", denominator=1),
    info="x must be numberic"
  )
  expect_error(
    round_to_fraction(x=1, denominator="A"),
    info="denominator must be numberic"
  )
  expect_error(
    round_to_fraction(x=1, denominator=c(1, 2)),
    info="length(denominator) must equal length(x) or be 1"
  )
  expect_error(
    round_to_fraction(x=1, denominator=-1),
    info="denominator must be positive"
  )
  expect_error(
    round_to_fraction(x=1, denominator=0),
    info="denominator must be positive, not zero"
  )
  expect_error(
    round_to_fraction(x=1, denominator=2, digits="A"),
    info="digits must be numeric or 'auto'"
  )
  expect_error(
    round_to_fraction(x=1, denominator=2, digits=c(1, 2)),
    info="digits must be numeric or 'auto'"
  )
  expect_error(
    round_to_fraction(x=c(1, 2), denominator=2, digits=c(1, 2, 3)),
    info="digits must be numeric the same length as x (or scalar)"
  )
})

test_that("round_to_fraction results are as expected", {
  # scalars
  expect_equal(
    round_to_fraction(x=1.1, denominator=7),
    8/7
  )
  expect_equal(
    round_to_fraction(x=1.1, denominator=7, digits=Inf),
    round_to_fraction(x=1.1, denominator=7)
  )
  expect_equal(
    round_to_fraction(x=1.1, denominator=7, digits=5),
    round(8/7, digits=5)
  )
  expect_equal(
    round_to_fraction(x=1.1, denominator=7, digits="auto"),
    round(8/7, digits=2)
  )

  # vectors
  expect_equal(
    round_to_fraction(x=c(1.1, 2.05), denominator=7, digits=Inf),
    c(8/7, 2)
  )
  expect_equal(
    round_to_fraction(x=c(1.1, 2.05), denominator=c(7, 25), digits=Inf),
    c(8/7, 51/25)
  )
  expect_equal(
    round_to_fraction(x=c(1.1, 2.05), denominator=c(7, 27), digits=Inf),
    c(8/7, 55/27)
  )
  expect_equal(
    round_to_fraction(x=c(1.1, 2.05), denominator=c(7, 27), digits=3),
    round(c(8/7, 55/27), digits=3)
  )
  expect_equal(
    round_to_fraction(x=c(1.1, 2.05), denominator=c(7, 27), digits=c(3, 4)),
    round(c(8/7, 55/27), digits=c(3, 4))
  )
  expect_equal(
    round_to_fraction(x=c(1.1, 2.05), denominator=c(7, 27), digits="auto"),
    round(c(8/7, 55/27), digits=c(2, 3))
  )
})