tests/testthat/test-fmt_percent.R

In ddsjoberg/clintable: Presentation-Ready Data Summary Tables

context("test-fmt_percent")


test_that("no errors/warnings with standard use", {
  percent_vals <- c(-1, 0, 0.0001, 0.005, 0.01, 0.10, 0.45356, 0.99, 1.45)

  expect_error(fmt_percent(percent_vals), NA)
  expect_warning(fmt_percent(percent_vals), NA)
})


test_that("<0 returns NA", {
  expect_true(is.na(fmt_percent(-1)))
})