tests/testthat/test-makeContent.r

In fillpattern: Patterned Fills for 'ggplot2' and 'grid' Graphics

test_that("makeContent", {
  
  grDevices::pdf(file = tf <- tempfile(fileext = ".pdf"))
  on.exit({ grDevices::dev.off(); unlink(tf) }, add = TRUE)
  
  gt <- expect_silent(fillPatternGrob())
  gt <- expect_silent(grid::makeContent(gt))
  
  expect_s3_class(gt, c("fill_pattern", "gTree", "grob", "gDesc"))
  expect_contains(names(gt), methods::formalArgs(fillPatternGrob))
  expect_contains(names(gt), c("name", "gp", "vp", "children", "childrenOrder"))
  expect_gte(length(gt$children), 1)
  expect_s3_class(gt$children, c("gList"))
  
})