add tests

Author: cpsievert

tests/testthat/test-plotly-color.R

@@ -63,6 +63,17 @@ test_that("Mapping a numeric variable to color works", {
   expect_true(all(0 <= markerScale$colorscale[,1] & markerScale$colorscale[,1] <= 1))
 })
 
+test_that("color/stroke mapping with box translates correctly", {
+  d <- data.frame(x = rep(c("A", "B"), each = 5), y = rnorm(10))
+  l <- plot_ly(d) %>% 
+    add_boxplot(x = ~x, y = ~y, color = ~x, colors = c('A' = "blue", 'B' = "red"), stroke = I("black")) %>%
+    expect_traces(2, "box-color-stroke")
+  expect_true(l$data[[1]]$fillcolor == toRGB("blue", 0.5))
+  expect_true(l$data[[2]]$fillcolor == toRGB("red", 0.5))
+  expect_true(l$data[[1]]$line$color == toRGB("black"))
+  expect_true(l$data[[2]]$line$color == toRGB("black"))
+})
+
 test_that("Custom RColorBrewer pallette works for numeric variable", {
   p <- plot_ly(iris, x = ~Sepal.Length, y = ~Petal.Length, 
                color = ~Petal.Width, colors = "Greens")

tests/testthat/test-plotly-size.R

@@ -18,3 +18,18 @@ test_that("sizemode is always respected", {
   }
 
 })
+
+
+test_that("Basic bubble chart works without warning", {
+  p <- plot_ly(
+    data  = iris, 
+    x     = ~Sepal.Length, 
+    y     = ~Petal.Length, 
+    size  = ~Sepal.Width,
+    type  = 'scatter', 
+    mode  = 'markers'
+  )
+  # expect no warning
+  expect_warning(plotly_build(p), NA)
+  expect_doppelganger_built(p, "bubble-chart")
+})