add points to the density2d test

Author: cpsievert

tests/testthat/test-ggplot-density2d.R

@@ -1,14 +1,16 @@
 context("Density2d")
 
 # Draw a 2d density estimation using geom_density2d
-m <- ggplot(MASS::geyser) + geom_density2d(aes(x=duration, y=waiting))
+m <- ggplot(MASS::geyser, aes(x=duration, y=waiting)) + 
+  geom_point(alpha = 0.4) +
+  geom_density2d()
 L <- save_outputs(m, "density2d")
 
 test_that("geom_density2d is translated to type=histogram2dcontour", {
-  expect_equal(length(L$data), 1)
-  expect_identical(L$data[[1]]$type, "histogram2dcontour")
+  expect_equal(length(L$data), 2)
+  expect_identical(L$data[[2]]$type, "histogram2dcontour")
 })
 
 test_that("geom_density2d uses line contours by default", {
-  expect_identical(L$data[[1]]$contours$coloring, "lines")
+  expect_identical(L$data[[2]]$contours$coloring, "lines")
 })