1context("ggproto") 2 3test_that(".DollarNames retrieves inherited methods", { 4 A <- ggproto("A", NULL, a = 1) 5 B <- ggproto("B", A, b = 2) 6 7 expect_equal(.DollarNames(B), c("b", "a")) 8}) 9