tests/testthat/test-output.R

test_that("open plot windows maintained", {
  n <- length(dev.list())
  evaluate(file("plot.R"))
  expect_length(dev.list(), n)
})
hadley/evaluate documentation built on May 19, 2024, 12:59 a.m.