1context("geom_rule")
2# tests for geom_vline, geom_hline & geom_abline
3
4df <- data_frame(x = 1:3, y = 3:1)
5p <- ggplot(df, aes(x, y)) + geom_point()
6p_col <- ggplot(df, aes(x, y, colour = factor(x))) + geom_point()
7
8test_that("setting parameters makes one row df", {
9  b <- p + geom_hline(yintercept = 1.5)
10  expect_equal(layer_data(b, 2)$yintercept, 1.5)
11
12  b <- p + geom_vline(xintercept = 1.5)
13  expect_equal(layer_data(b, 2)$xintercept, 1.5)
14
15  b <- p + geom_abline()
16  expect_equal(layer_data(b, 2)$intercept, 0)
17  expect_equal(layer_data(b, 2)$slope, 1)
18
19  b <- p + geom_abline(slope = 0, intercept = 1)
20  expect_equal(layer_data(b, 2)$intercept, 1)
21  expect_equal(layer_data(b, 2)$slope, 0)
22})
23
24test_that("setting aesthetics generates one row for each input row", {
25  b <- p + geom_hline(aes(yintercept = 1.5))
26  expect_equal(layer_data(b, 2)$yintercept, rep(1.5, 3))
27
28  b <- p + geom_vline(aes(xintercept = 1.5))
29  expect_equal(layer_data(b, 2)$xintercept, rep(1.5, 3))
30
31  b <- p + geom_abline(aes(slope = 0, intercept = 1))
32  expect_equal(layer_data(b, 2)$intercept, rep(1, 3))
33  expect_equal(layer_data(b, 2)$slope, rep(0, 3))
34})
35