Fix test typos

Author: cpsievert

tests/testthat/test-ggplot-point.R

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