tests/testthat/test-print.R

In itp: The Interpolate, Truncate, Project (ITP) Root-Finding Algorithm

# Check that the print function works

# The example used in the Wikipedia entry for the ITP method
wiki <- function(x) x ^ 3 - x - 2
res <- itp(wiki, c(1, 2), k1 = 0.1, n0 = 1)

res1 <- print(res, all = FALSE)
test_that("print, all = FALSE", {
  testthat::expect_equal(res, res1)
})
res2 <- print(res, all = TRUE)
test_that("print, all = TRUE", {
  testthat::expect_equal(res, res2)
})