dwww Home | Show directory contents | Find package

test_that("checks for any type of output", {
  expect_failure(expect_silent(warning("!")))
  expect_failure(expect_silent(message("!")))
  expect_failure(expect_silent(print("!")))

  expect_success(expect_silent(""))
})

test_that("returns first argument", {
  expect_equal(expect_silent(1), 1)
})

test_that("deprecations are ignored", {
  foo <- function() {
    lifecycle::deprecate_warn("1.0.0", "foo()")
  }
  expect_success(expect_silent(foo))
})

Generated by dwww version 1.15 on Sun May 19 02:43:38 CEST 2024.