tests/testthat/test-auc.R

In ddsjoberg/bstfun: Functions for the MSK Biostatistics Department

test_that("No errors/warnings with standard use", {
  expect_error(
    auc_density(density = dbeta, shape1 = 1, shape2 = 1),
    NA
  )

  expect_error(
    runif(10000) %>% hist(breaks = 250) %>% auc_histogram(),
    NA
  )
})