tests/testthat/test_rootfinding_optimization.R

In DrylandEcology/rSW2utils: Utility Tools for SOILWAT2 and STEPWAT2 Simulation Experiments

#--- Tests
test_that("Roots:", {
  r1 <- uniroots(
    f = function(x) -1 + x^2,
    xlim = c(-10, 10),
    tol = rSW2_glovars[["tol"]],
    expected_nroots = 2
  )

  expect_type(r1, "list")

  expect_identical(
    has_uniroots(r1),
    c(TRUE, TRUE)
  )

  expect_equal(
    vapply(r1, function(x) x[["root"]], FUN.VALUE = NA_real_),
    c(-1, 1),
    tolerance = rSW2_glovars[["tol"]]
  )

  r2 <- uniroots(f = function(x) -1 + x^2, xlim = c(-10, -5))
  expect_type(r2, "list")
  expect_false(has_uniroots(r2))

  r3 <- uniroots(f = function(x) Inf, xlim = c(-10, -5), expected_nroots = 2)
  expect_type(r3, "list")
  expect_false(has_uniroots(r3))
})