1context("geom-polygon") 2 3 4# Visual tests ------------------------------------------------------------ 5 6skip_if(utils::packageVersion('grid') < "3.6") 7test_that("geom_polygon draws correctly", { 8 9 tbl <- data_frame( 10 x = c( 11 0, 10, 10, 0, 12 20, 30, 30, 20, 13 22, 28, 28, 22 14 ), 15 y = c( 16 0, 0, 10, 10, 17 20, 20, 30, 30, 18 22, 22, 28, 28 19 ), 20 group = c(rep(1, 4), rep(2, 8)), 21 subgroup = c(rep(1, 8), rep(2, 4)) 22 ) 23 24 p <- ggplot(tbl, aes(x, y, group = group, subgroup = subgroup)) + 25 geom_polygon() 26 27 expect_doppelganger("basic polygon plot", p) 28}) 29