tests/testthat/test-plot.R

In ssdtools: Species Sensitivity Distributions

test_that("plot fitdists deprecated to autoplot", {
  fits <- ssd_fit_dists(ssddata::ccme_boron, dists = "lnorm")
  
  lifecycle::expect_deprecated(plot(fits))
})

test_that("plot fitdists give ggplot2 object", {
  fits <- ssd_fit_dists(ssddata::ccme_boron)
  withr::local_options(lifecycle_verbosity = "quiet")
  expect_snapshot_plot(plot(fits), "plot")
})