1context("Adding plot elements")
2
3test_that("mapping class is preserved when adding uneval objects", {
4  p <- ggplot(mtcars) + aes(wt, mpg)
5  expect_identical(class(p$mapping), "uneval")
6})
7