tests/testthat/test_utility.R

In univariateML: Maximum Likelihood Estimation for Univariate Densities

context("utility")

x <- list(
  a = 5,
  b = 0,
  c = "a",
  d = NULL
)

y <- list(
  a = 3,
  b = 7,
  f = NA
)

expect_equal(listmerge(x, y, type = "merge")$b, 7)
expect_null(listmerge(x, y, type = "template")$f, NULL)
expect_equal(listmerge(x, NULL, type = "merge"), x)
expect_equal(listmerge(x, list(h = "b"), type = "merge")$h, "b")

## Input checker

expect_error(ml_input_checker("x"))
expect_error(ml_input_checker(lm))
expect_error(ml_input_checker(replicate(3, 1:3)))
expect_true(ml_input_checker(1:3))