tests/testthat/test-box2.R

context("test box2")


test_that("box2", {
  plot0()
  expect_error(box2(which = "dd"))
  expect_warning(box2(side = 5))
  res <- box2(c(1, 2, "h", "t"))
  expect_equal(res, 1:3)
  dev.off()

})
KevCaz/graphicsutils documentation built on Sept. 16, 2022, 10:05 a.m.