tests/testthat/test-quasi_pois_sampling.R

In predint: Prediction Intervals

test_that("tests for errors", {

        # n must be an integer
        expect_error(rqpois(n=3.3, lambda=1, phi=2))

        # length(n) must be 1
        expect_error(rqpois(n=c(3,3), lambda=1, phi=2))

        # lambda is not element of [0,1]
        expect_error(rqpois(n=3, lambda=0, phi=2))

        # phi must be bigger than 1
        expect_error(rqpois(n=3, lambda=1, phi=1))

        # offset must be integer of numeric vector
        expect_error(rqpois(n=3, lambda=1.5, phi=2, offset=rep("a", 3)))

        # offset must have the same length as n
        expect_error(rqpois(n=3, lambda=1.5, phi=2, offset=1:2))

        # output object must be a data.frame
        expect_true(is.data.frame(rqpois(n=3, lambda=1.5, phi=2, offset=1:3)))
})