expect ylim

tdhock · tdhock · commit df927ee71e65 · 2015-02-27T17:03:16.000-05:00
diff --git a/tests/testthat/test-ggplot-ylim.R b/tests/testthat/test-ggplot-ylim.R
@@ -29,5 +29,7 @@ expect_traces <- function(gg, n.traces, name){
 }
 
 test_that("ylim is respected for 1 trace", {
-  expect_traces(gg.ylim, 1, "one-trace")
+  info <- expect_traces(gg.ylim, 1, "one-trace")
+  expected.ylim <- c(0, max(df$total_bill))
+  expect_equal(info$kwargs$layout$yaxis$range, expected.ylim)
 })

Original file line number	Diff line number	Diff line change
`@@ -29,5 +29,7 @@ expect_traces <- function(gg, n.traces, name){`
`29`	`29`	`}`
`30`	`30`
`31`	`31`	`test_that("ylim is respected for 1 trace", {`
`32`		`- expect_traces(gg.ylim, 1, "one-trace")`
	`32`	`+ info <- expect_traces(gg.ylim, 1, "one-trace")`
	`33`	`+ expected.ylim <- c(0, max(df$total_bill))`
	`34`	`+ expect_equal(info$kwargs$layout$yaxis$range, expected.ylim)`
`33`	`35`	`})`