tests/testthat/test-BODextract.R

context("Checking the BODextract")
test_that("Length being equal for output list",{
        expect_equal(length(BODextract(sample(0:10,340,replace=TRUE))),2)
        })

test_that("Length being equal to output of Random Variable",{
        expect_equal(length(BODextract(sample(0:10,340,replace=TRUE))$RV),11)
        })
test_that("Length being equal to output of Frequency",{
        expect_equal(length(BODextract(sample(0:10,340,replace=TRUE))$Freq),11)
        })
Amalan-ConStat/R-fitODBOD documentation built on July 4, 2019, 4:17 p.m.