Test deprecation messages

tidyverse · Jul 4, 2023 · 6482fa5 · 6482fa5
1 parent cad1eaa
commit 6482fa5
Show file tree

Hide file tree

Showing 2 changed files with 20 additions and 0 deletions.
diff --git a/tests/testthat/_snaps/scales.md b/tests/testthat/_snaps/scales.md
@@ -59,3 +59,15 @@
  Discrete values supplied to continuous scale
  i Example values: "A", "B", "C", "D", and "E"
 
+# Using `scale_name` prompts deprecation message
+
+ The `scale_name` argument of `continuous_scale()` is deprecated as of ggplot2 3.5.0.
+
+---
+
+ The `scale_name` argument of `discrete_scale()` is deprecated as of ggplot2 3.5.0.
+
+---
+
+ The `scale_name` argument of `binned_scale()` is deprecated as of ggplot2 3.5.0.
+
diff --git a/tests/testthat/test-scales.R b/tests/testthat/test-scales.R
@@ -670,3 +670,11 @@ test_that("find_scale appends appropriate calls", {
  )
 
 })
+
+test_that("Using `scale_name` prompts deprecation message", {
+
+ expect_snapshot_warning(continuous_scale("x", "foobar", identity_pal()))
+ expect_snapshot_warning(discrete_scale("x", "foobar", identity_pal()))
+ expect_snapshot_warning(binned_scale("x", "foobar", identity_pal()))
+
+})