conditionally test time scales

tidyverse · Jul 4, 2023 · 5071f5e · 5071f5e
1 parent b1f7899
commit 5071f5e
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/tests/testthat/test-scales.R b/tests/testthat/test-scales.R
@@ -625,7 +625,7 @@ test_that("scale functions accurately report their calls", {
  scale_x_log10(),
  scale_x_reverse(),
  scale_x_sqrt(),
- scale_x_time(),
+ # scale_x_time(),
  scale_y_binned(),
  scale_y_continuous(),
  scale_y_date(),
@@ -634,10 +634,14 @@ test_that("scale functions accurately report their calls", {
  scale_y_log10(),
  scale_y_reverse(),
  scale_y_sqrt(),
- scale_y_time(),
+ # scale_y_time(),
  xlim(10, 20),
  ylim("A", "B")
  )
+ if (is_installed("hms")) {
+ construct <- c(construct, exprs(scale_x_time(), scale_y_time()))
+ }
+
  suppressWarnings(
  calls <- lapply(construct, function(x) eval(x)$call)
  )