tests/testthat/test-plots.R

test_that("plots", {
    a <- count(c(dogs=7, pigs=3, crabs=1, hogs=1, slugs=1))

    p <- function(...){plot(a)}
    expect_doppelganger("dominance diversity curve", p)
})
RobinHankin/untb documentation built on Dec. 7, 2024, 6:30 p.m.