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