tests/testthat/test_fit_collection.R

In txm676/mmSAR2: Fit and Compare Species-Area Relationship Models Using Multimodel Inference

context("sar_multi")

test_that("sar_multi returns correct results", {
  fitC <- sar_multi(galap, obj = c("linear", "power"))
  expect_output(str(fitC), "List of 2")
  expect_is(fitC, "sars")
  expect_no_error(plot(fitC))
  expect_no_error(plot(fitC, mfplot = TRUE))
  expect_no_error(plot(fitC, mfplot = TRUE,
                       pLeg = TRUE))
  expect_equal(length(capture_output_lines(fitC, print = TRUE)),
               7)
})