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