tests/testthat/test-all.R
In bgreenwell/roundhouse: Random Chuck Norris Facts
context("random facts")
test_that("random_fact() works", {
fact <- random_fact(n = 1L, include = NULL, exclude = NULL)
expect_is(fact, class = "character")
})
context("roundhouse kicks")
test_that("kick() works", {
skip_if_not_installed("magick")
gif1 <- kick()
gif2 <- kick("Chuck Norris can’t test for equality because he has no equal.",
type = 2, width = 40, size = 25, fps = 5)
expect_is(gif1, class = "magick-image")
expect_is(gif2, class = "magick-image")
expect_error(kick(type = 3))
})
bgreenwell/roundhouse documentation built on Sept. 16, 2019, 8:51 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
context("random facts")
test_that("random_fact() works", {
fact <- random_fact(n = 1L, include = NULL, exclude = NULL)
expect_is(fact, class = "character")
})
context("roundhouse kicks")
test_that("kick() works", {
skip_if_not_installed("magick")
gif1 <- kick()
gif2 <- kick("Chuck Norris can’t test for equality because he has no equal.",
type = 2, width = 40, size = 25, fps = 5)
expect_is(gif1, class = "magick-image")
expect_is(gif2, class = "magick-image")
expect_error(kick(type = 3))
})
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.