tests/testthat/test-exact_dist.R

test_that("exact_dist() works and adds up to 1", {
  expect_equal(sum(visage::exact_dist(10)), 1)
})

test_that("exact_dist(1) works and it is c(0.95, 0.05)", {
  expect_equal(unname(visage::exact_dist(1)[1]), 0.95)
})
TengMCing/visage documentation built on Aug. 28, 2024, 3:27 p.m.