add a few tests for new axis defaults

Author: cpsievert

tests/testthat/test-ggplot-labels.R

@@ -34,3 +34,10 @@ test_that("angled ticks are translated correctly", {
   info <- save_outputs(ggiris, "labels-angles")
   expect_identical(info$layout$xaxis$tickangle, -45)
 })
+
+test_that("xaxis/yaxis automargin defaults to TRUE", {
+  p <- ggplot(iris, aes(Species)) + geom_bar() + coord_flip()
+  l <- plotly_build(p)$x
+  expect_true(l$layout$xaxis$automargin)
+  expect_true(l$layout$yaxis$automargin)
+})

tests/testthat/test-plotly-splom.R

@@ -0,0 +1,14 @@
+context("splom")
+
+
+test_that("No cartesian axes are supplied to a splom chart", {
+  
+  p <- plot_ly(
+    type = 'splom',
+    dimensions = list(
+      list(values=c(1,2,3), label="A"),
+      list(values=c(2,5,6), label="B")
+    )
+  )
+  
+})

tests/testthat/test-plotly.R

@@ -62,6 +62,8 @@ test_that("plot_ly() handles a simple scatterplot", {
   expect_equivalent(l$data[[1]]$y, iris$Petal.Length)
   expect_true(l$layout$xaxis$title == "Sepal.Length")
   expect_true(l$layout$yaxis$title == "Petal.Length")
+  expect_true(l$layout$xaxis$automargin)
+  expect_true(l$layout$yaxis$automargin)
 })
 
 test_that("type inference + add_data + layering works as expected", {