context("test-seal.R")
test_that("sealing", {
tests <- transcribe(letters, seal = FALSE)
expect_silent(seal(tests, load_testthat = TRUE, clip = FALSE))
skip_on_os("mac")
skip_on_os("windows")
skip_on_cran()
skip_on_appveyor()
expect_warning(
seal(tests, clip = TRUE),
"clipr not available. check clipr configuration."
)
})
test_that("clip", {
tests <- transcribe(letters, seal = FALSE)
skip_on_cran()
skip_on_travis()
# skip_on_appveyor()
skip_on_os("linux")
skip_on_os("solaris")
expect_silent(seal(tests, clip = TRUE))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.