add tests

Author: teunbrand

tests/testthat/test-scale-expansion.R

@@ -96,6 +96,27 @@ test_that("expand_limits_discrete() can override limits with a both discrete and
     expand_limits_discrete(c("one", "two"), coord_limits = c(0, NA), range_continuous = c(1, 2)),
     c(0, 2)
   )
+  expect_identical(
+    expand_limits_discrete(1:2, range_continuous = c(1, 2), continuous_limits = c(0, 3)),
+    c(0, 3)
+  )
+  expect_identical(
+    expand_limits_discrete(1:2, range_continuous = c(1, 2), continuous_limits = c(NA, 4)),
+    c(1, 4)
+  )
+  expect_identical(
+    expand_limits_discrete(1:2, range_continuous = c(1, 2), continuous_limits = c(0, NA)),
+    c(0, 2)
+  )
+  expect_identical(
+    expand_limits_discrete(1:2, range_continuous = c(1, 2), continuous_limits = c(NA_real_, NA_real_)),
+    c(1, 2)
+  )
+  expect_identical(
+    expand_limits_discrete(1:2, range_continuous = 1:2,
+                           continuous_limits = function(x) x + c(-1, 1)),
+    c(0, 3)
+  )
 })
 
 test_that("expand_limits_continuous_trans() works with inverted transformations", {