adjust tests

Author: teunbrand

tests/testthat/test-facet-strips.R

@@ -132,7 +132,7 @@ test_that("strips can be removed", {
     theme(strip.background = element_blank(), strip.text = element_blank())
   g_grobs <- ggplotGrob(g)
   strip_grobs <- g_grobs$grobs[grepl('strip-', g_grobs$layout$name)]
-  expect_true(all(sapply(strip_grobs, inherits, 'zeroGrob')))
+  expect_true(all(sapply(strip_grobs, inherits, 'null')))
 })
 
 test_that("padding is only added if axis is present", {

tests/testthat/test-stat-density2d.R

@@ -100,5 +100,5 @@ test_that("stat_density_2d handles faulty bandwidth", {
   p <- ggplot(faithful, aes(eruptions, waiting)) +
     stat_density_2d(h = c(0, NA))
   expect_snapshot_warning(b <- ggplot_build(p))
-  expect_s3_class(layer_grob(b)[[1]], "zeroGrob")
+  expect_s3_class(layer_grob(b)[[1]], "null")
 })