tests/testthat/test-illustrations.R

In HuraultMisc: Guillem Hurault Functions' Library

test_that("illustration functions returns ggplot object", {
  expect_is(illustrate_RPS(), "ggplot")
  expect_is(illustrate_forward_chaining(), "ggplot")
})

test_that("illustration functions identify incorrect inputs", {
  expect_error(illustrate_RPS(observed = -1))
  expect_error(illustrate_RPS(mu = -10, sigma = 3))
})