inst/tinytest/test_glimpse.R

expect_equal(
  {
    tmp <- tempfile()
    on.exit(unlink(tmp), add = TRUE)
    sink(tmp)
    x <- glimpse(mtcars)
    sink(NULL)
    x
  },
  mtcars,
  info = "The object is returned invisibly"
)

Try the poorman package in your browser

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

poorman documentation built on Nov. 2, 2023, 5:27 p.m.