tests/testthat/test-ksnormal.R

In wrappedtools: Useful Wrappers Around Commonly Used Functions

# out1 <- ksnormal(x = mtcars$wt)
# out2 <- suppressWarnings(ks.test(
#   x = mtcars$wt, pnorm, mean = mean(mtcars$wt, na.rm = TRUE),
#   sd = sd(mtcars$wt, na.rm = TRUE))$p.value
# )
# saveRDS(list(out1=out1, out2=out2),file = 'tests/testthat/ksnormal_out.rda')

test_that("ksnormal() with defaults", {
  expected <- readRDS('ksnormal_out.rda')
  expect_equal(ksnormal(x = mtcars$wt), expected[[1]])
  expect_equal(ksnormal(x = mtcars$wt),expected[[2]])
})