Skip to content

Commit 68ef12c

Browse files
authored
missing stat_function() unit tests (#4028)
1 parent c119561 commit 68ef12c

File tree

1 file changed

+8
-0
lines changed

1 file changed

+8
-0
lines changed

tests/testthat/test-stat-function.R

Lines changed: 8 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -75,18 +75,22 @@ test_that("works with transformed scales", {
7575

7676
ret <- layer_data(base)
7777
expect_equal(nrow(ret), 5)
78+
expect_equal(ret$x, seq(1, 10, length.out = 5))
7879
expect_equal(ret$y, ret$x^2)
7980

8081
ret <- layer_data(base + scale_x_log10())
8182
expect_equal(nrow(ret), 5)
83+
expect_equal(ret$x, seq(0, 1, length.out = 5))
8284
expect_equal(ret$y, (10^ret$x)^2)
8385

8486
ret <- layer_data(base + scale_y_log10())
8587
expect_equal(nrow(ret), 5)
88+
expect_equal(ret$x, seq(1, 10, length.out = 5))
8689
expect_equal(10^ret$y, ret$x^2)
8790

8891
ret <- layer_data(base + scale_x_log10() + scale_y_log10())
8992
expect_equal(nrow(ret), 5)
93+
expect_equal(ret$x, seq(0, 1, length.out = 5))
9094
expect_equal(10^ret$y, (10^ret$x)^2)
9195

9296
# now with explicit mapping of y
@@ -95,18 +99,22 @@ test_that("works with transformed scales", {
9599

96100
ret <- layer_data(base, 2)
97101
expect_equal(nrow(ret), 5)
102+
expect_equal(ret$x, seq(1, 10, length.out = 5))
98103
expect_equal(ret$y, ret$x^2)
99104

100105
ret <- layer_data(base + scale_x_log10(), 2)
101106
expect_equal(nrow(ret), 5)
107+
expect_equal(ret$x, seq(0, 1, length.out = 5))
102108
expect_equal(ret$y, (10^ret$x)^2)
103109

104110
ret <- layer_data(base + scale_y_log10(), 2)
105111
expect_equal(nrow(ret), 5)
112+
expect_equal(ret$x, seq(1, 10, length.out = 5))
106113
expect_equal(10^ret$y, ret$x^2)
107114

108115
ret <- layer_data(base + scale_x_log10() + scale_y_log10(), 2)
109116
expect_equal(nrow(ret), 5)
117+
expect_equal(ret$x, seq(0, 1, length.out = 5))
110118
expect_equal(10^ret$y, (10^ret$x)^2)
111119
})
112120

0 commit comments

Comments
 (0)