add test

Author: teunbrand

tests/testthat/test-labels.R

@@ -267,6 +267,31 @@ test_that("moving guide positions lets titles follow", {
   )
 })
 
+test_that("label dictionaries work", {
+
+  p <- ggplot(mtcars, aes(disp, mpg, shape = factor(cyl), size = drat)) +
+    geom_point() +
+    labs(dict = c(
+      disp = "Displacement",
+      mpg  = "Miles per gallon",
+      `factor(cyl)` = "Number of cylinders",
+      drat = "Rear axle ratio"
+    ))
+  p <- ggplot_build(p)
+
+  x <- p$layout$resolve_label(p$layout$panel_scales_x[[1]], p$plot$labels)
+  expect_equal(x$primary, "Displacement")
+
+  y <- p$layout$resolve_label(p$layout$panel_scales_y[[1]], p$plot$labels)
+  expect_equal(y$primary, "Miles per gallon")
+
+  shape <- p$plot$guides$get_params("shape")$title
+  expect_equal(shape, "Number of cylinders")
+
+  size <- p$plot$guides$get_params("size")$title
+  expect_equal(size, "Rear axle ratio")
+})
+
 # Visual tests ------------------------------------------------------------
 
 test_that("tags are drawn correctly", {