add a test

Author: cpsievert

tests/testthat/test-ggplot-point.R

@@ -43,3 +43,12 @@ test_that("can plot on sub-second time scale", {
   info <- save_outputs(g, "point-size-alpha2")
   expect_equivalent(info$data[[1]]$x, as.numeric(d$x))
 })
+
+
+test_that("tickvals/ticktext are appropriately boxed", {
+  d <- data.frame(x = factor(1), y = 10)
+  p <- qplot(x, y, data = d) 
+  info <- save_outputs(g, "point-box")
+  expect_true(plotly::to_JSON(info$layout$xaxis$tickvals) == '[1]')
+  expect_true(plotly::to_JSON(l$layout$xaxis$tickvals) == '["56"]')
+})