tests/testthat/test-kernel.R

In RaphaelS1/distr6: The Complete R6 Probability Distributions Interface

skip_if_distr_not_installed(UniformKernel)
skip_if_distr_not_installed(Epanechnikov)

test_that("kernel constructor error", {
  expect_error(Kernel$new())
})

test_that("decorators", {
  expect_equal(UniformKernel$new(decorators = "CoreStatistics")$decorators, "CoreStatistics")
})

test_that("rand", {
  expect_null(Epanechnikov$new()$rand(1))
})