get basic tests working

Author: cpsievert

tests/testthat/test-ggplot-ribbon.R

@@ -32,20 +32,22 @@ test_that("geom_ribbon() creates 1 trace & respects alpha transparency", {
 p2 <- ggplot(data = huron, aes(group = factor(decade))) + 
   geom_ribbon(aes(x = diff, ymin = level-0.1, ymax = level+0.1))
 
-test_that("geom_ribbon() group aesthetic", {
+test_that("geom_ribbon() with group aesthetic produces 1 trace", {
   info <- expect_traces(p2, 1, "group")
 })
 
 p3 <- ggplot(data = huron, aes(colour = factor(decade))) + 
   geom_ribbon(aes(x = diff, ymin = level-0.1, ymax = level+0.1))
 
-test_that("geom_ribbon() colour aesthetic", {
-  info <- expect_traces(p3, 1, "colour")
+test_that("geom_ribbon() with colour aesthetic produces multiple traces", {
+  # 10 traces -- one for each decade
+  info <- expect_traces(p3, 10, "colour")
 })
 
 p4 <- ggplot(data = huron, aes(fill = factor(decade))) + 
   geom_ribbon(aes(x = diff, ymin = level-0.1, ymax = level+0.1))
 
-test_that("geom_ribbon() fill aesthetic", {
-  info <- expect_traces(p4, 1, "fill")
+test_that("geom_ribbon() with fill aesthetic produces multiple traces", {
+  # 10 traces -- one for each decade
+  info <- expect_traces(p4, 10, "fill")
 })

tests/testthat/test-ggplot-smooth.R

@@ -35,17 +35,17 @@ test_that("geom_smooth() respects group aesthetic", {
   # 1 trace for points
   # 5 traces for lines (1 for each group)
   # 5 traces for ribbons (1 for each group)
-  expect_traces(p3, 11, "group")
+  info <- expect_traces(p3, 11, "group")
 })
 
 p4 <- qplot(carat, price, colour = cut, data = d) + geom_smooth()
 
 test_that("geom_smooth() respects colour aesthetic", {
-  expect_traces(p4, 11, "colour")
+  info <- expect_traces(p4, 11, "colour")
 })
 
 p5 <- qplot(carat, price, fill = cut, data = d) + geom_smooth()
 
 test_that("geom_smooth() respects fill aesthetic", {
-  expect_traces(p5, 11, "fill")
+  info <- expect_traces(p5, 11, "fill")
 })