/usr/share/doc/r-cran-evaluate/tests/testthat/test-output.r

dwww Home | Show directory contents | Find package

context("Output")

test_that("open plot windows maintained", {
  n <- length(dev.list())
  evaluate(file("plot.r"))
  expect_that(length(dev.list()), equals(n))
})

Generated by dwww version 1.15 on Thu May 23 22:41:17 CEST 2024.