tests/testthat/test-seal.R

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))
})

Try the sealr package in your browser

Any scripts or data that you put into this service are public.

sealr documentation built on June 30, 2018, 5:06 p.m.