tests/testthat/test_main_functions_for_errors.R

In konkam/BNPdensity: Ferguson-Klass Type Algorithm for Posterior Normalized Random Measures

test_that("MixNRMI1 runs ok", {
  expect_output(str(MixNRMI1(rnorm(20), Nit = 50, extras = TRUE)), "List")
})
test_that("MixNRMI1 runs ok", {
  expect_output(str(MixNRMI1(rnorm(20), Nit = 50, extras = TRUE, adaptive = TRUE)), "List")
})
test_that("MixNRMI2 runs ok", {
  expect_output(str(MixNRMI2(rnorm(20), Nit = 50, extras = TRUE)), "List")
})
test_that("MixNRMI2 runs ok", {
  expect_output(str(MixNRMI2(rnorm(20), Nit = 50, extras = TRUE, adaptive = TRUE)), "List")
})
test_that("MixNRMI1cens runs ok", {
  expect_output(str(MixNRMI1cens(salinity$left, salinity$right, Nit = 50, extras = TRUE)), "List")
})
test_that("MixNRMI1cens runs ok", {
  expect_output(str(MixNRMI1cens(salinity$left, salinity$right, Nit = 50, extras = TRUE, adaptive = TRUE)), "List")
})
test_that("MixNRMI2cens runs ok", {
  expect_output(str(MixNRMI2cens(salinity$left, salinity$right, Nit = 60, extras = TRUE)), "List")
})
test_that("MixNRMI2cens runs ok", {
  expect_output(str(MixNRMI2cens(salinity$left, salinity$right, Nit = 60, extras = TRUE, adaptive = TRUE)), "List")
})