Author: Michael R. Crusoe <crusoe@debian.org>
Description: skip tests that depend on r-cran-alluvial as that is not yet in the archive
Forwarded: not-needed
--- a/tests/testthat/test-geom-alluvium.r
+++ b/tests/testthat/test-geom-alluvium.r
@@ -1,6 +1,7 @@
 # visual tests
 
 test_that("`geom_alluvium` draws correctly", {
+  skip_if_not_installed("alluvial")
   skip_on_cran()
   skip_if_not_installed("vdiffr")
 
@@ -36,6 +37,7 @@
 })
 
 test_that("`geom_alluvium()` recognizes alternative curves", {
+  skip_if_not_installed("alluvial")
   data(vaccinations)
   
   skip_on_cran()
--- a/tests/testthat/test-stat-alluvium.r
+++ b/tests/testthat/test-stat-alluvium.r
@@ -1,6 +1,7 @@
 # weights are used but not returned
 
 test_that("`stat_alluvium` weights computed variables but drops weight", {
+  skip_if_not_installed("alluvial")
   # not cementing alluvia
   data <- expand.grid(alluvium = letters[1:3], x = 1:2)
   data$stratum <- LETTERS[c(1, 1, 2, 1, 2, 2)]
@@ -27,6 +28,7 @@
 # negative values
 
 test_that("`stat_alluvium` orders alluvia without regard to negative values", {
+  skip_if_not_installed("alluvial")
   data <- expand.grid(alluvium = letters[1:2], x = 1:2)
   data$stratum <- LETTERS[1]
   data$y <- c(-1, -1)
@@ -49,6 +51,7 @@
 # aesthetic binding
 
 test_that("`stat_alluvium` orders alluvia correctly according to `aes.bind`", {
+  skip_if_not_installed("alluvial")
   data <- expand.grid(alluvium = letters[1:4], x = 1:2)
   data$stratum <- LETTERS[1:2][c(1, 1, 2, 2, 2, 2, 2, 1)]
   data$y <- 1
