tests/testthat/test-eval_p_value.R

test_that("eval_p_value() works", {
  expect_equal(visage::eval_p_value(0.054), FALSE)
})

test_that("eval_p_value() can use tol correctly", {
  expect_equal(visage::eval_p_value(0.054, tol = 0.001), FALSE)
  expect_equal(visage::eval_p_value(0.054, tol = 0.01), TRUE)
})
TengMCing/visage documentation built on Aug. 28, 2024, 3:27 p.m.