tests/testthat/test-utility.R

context("Utility")

test_that("suppress_olw works", {
  expect_warning(shapes / scales)
  expect_silent(suppress_olw(shapes / scales))
  expect_warning(suppress_olw(warning("Warning")))
})

Try the nakagami package in your browser

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

nakagami documentation built on Sept. 14, 2021, 9:06 a.m.