tests/testthat/test-percentize.R

context("test-percentize")

test_that("percentize creates character vectors of expected precision", {
  expect_equal(
    percentize(c(0.98, 0.984, 0.987)), c("98%", "98%", "99%")
  )
  expect_equal(
    percentize(c(0.98, 0.984, 0.9872), digits = 1), c("98%", "98.4%", "98.7%")
  )
})
Kidapt/keda documentation built on Nov. 23, 2019, 3:35 a.m.