tests/testthat/test-p2bfb.R

In sjpierce/piercer: Functions for Research and Statistical Computing

# Test whether p2bfb inputs generate appropriate results.

test_that("p = NA returns NA", {
  expect_output(p2bfb(p = NA), NA)
})

test_that("Non-numeric p returns appropriate error", {
  expect_error(p2bfb(p = "a"), "p must be NA or numeric")
  expect_error(p2bfb(p = TRUE), "p must be NA or numeric")
  expect_error(p2bfb(p = factor("a")), "p must be NA or numeric")
})

test_that("Numeric p outside 0 to 1 returns appropriate error", {
  expect_error(p2bfb(p = -.1), "Numeric p must be a proportion between 0 and 1")
  expect_error(p2bfb(p = 1.1), "Numeric p must be a proportion between 0 and 1")
})

test_that("If present, digits is a single whole number", {
  expect_error(p2bfb(.05, digits = c(1, 2)),
               "If present, digits must be a scalar numeric/integer value")
  expect_error(p2bfb(.05, digits = "a"),
               "If present, digits must be a scalar numeric/integer value")
  expect_error(p2bfb(.05, digits = 0.5),
               "If present, digits must be a whole number")
})