tests/testthat/test-hyp_test.R

In UBC-MDS/hypeR:

context("hyp_test test")

test_that("hyp_test is not a boolean",{
  expect_error(hyp_test(data = TRUE, mean_0 = 1, alpha = 0.05))
})

test_that("hyp_test input size greater than 0", {
  data <- vector()
  mean_0 <- 1
  alpha <- 0.5
  expect_error(hyp_test(data, mean_0, alpha), "data must not be empty")
})

test_that("hyp_test input must not have missing values",{
  data <- c(1, 2, 3, 4)
  expect_identical(data, na.omit(data))

})

test_that("math is correct", {
  data <- c(1,2,3,4,5)
  mean_0 <- 2
  alpha <- 0.05
  pvalue <- 0.23019964108049878
  expect_equal(hyp_test(data, mean_0, alpha), pvalue)

})