tests/testthat/test-effects.R

context("Effects")

allowed_effects <- list("negate", "charcoal", "edge", "despeckle", "reduce_noise")

test_that("All allowed effects are present", {
  expect_equal(effects_list(), allowed_effects)
})
condwanaland/nebula documentation built on May 9, 2020, 11:21 p.m.