tests/testthat/test_checkPval.R

In dsrobertson/onlineFDR: Online error rate control

test_that("Check error messages", {
    expect_warning(checkPval(c(0.1,NA)), "Your data contains missing p-values. Missing p-values were omitted.")
    
    expect_error(checkPval(c(0.1,'A')),
                 "The vector of p-values contain at least one non-numeric element.")
    
    expect_error(checkPval(c(0.1,2)), "All p-values must be between 0 and 1.")
})