context_start_file("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)
})
test_that("Empty values in data",{
  expect_error(BODextract(NULL),"data is empty")
})
test_that("NA values in data",{
  expect_warning(BODextract(c(sample(0:10,340,replace=TRUE),NA)),"NA, NAN or infinite values are removed")
})