test for deprecation messages

Author: teunbrand

tests/testthat/test-function-args.R

@@ -13,7 +13,7 @@ test_that("geom_xxx and GeomXxx$draw arg defaults match", {
     geom_fun_names,
     c("geom_map", "geom_sf", "geom_smooth", "geom_column", "geom_area",
       "geom_density", "annotation_custom", "annotation_map", "annotation_raster",
-      "annotation_id", "geom_errobarh")
+      "annotation_id", "geom_errorbarh")
   )
 
   # For each geom_xxx function and the corresponding GeomXxx$draw and

tests/testthat/test-geom-errorbar.R

@@ -0,0 +1,16 @@
+test_that("geom_errorbarh throws deprecation messages", {
+
+  lifecycle::expect_deprecated(geom_errorbarh())
+
+  p <- ggplot(
+    data.frame(y = "A", min = 0, max = 10),
+    aes(y = y, xmin = min, xmax = max)
+  ) +
+    layer(
+      geom = "errorbarh",
+      stat = "identity",
+      position = "identity"
+    )
+
+  lifecycle::expect_deprecated(ggplot_build(p))
+})