Merge pull request #413 from MichaelChirico/skip-forecast

Skip tests requiring Suggests packages
tidyverts · Sep 24, 2024 · 50b3376 · 50b3376
2 parents f51d5db + a4dcb89
commit 50b3376
Show file tree

Hide file tree

Showing 4 changed files with 7 additions and 0 deletions.
diff --git a/tests/testthat/test-ets.R b/tests/testthat/test-ets.R
@@ -1,4 +1,5 @@
 context("test-ets.R")
+skip_if_not_installed("forecast")
 
 forecast_fit <- USAccDeaths %>% forecast::ets()
 test_that("Automatic ETS selection", {

diff --git a/tests/testthat/test-lm.R b/tests/testthat/test-lm.R
@@ -1,6 +1,8 @@
 context("test-lm.R")
 
 test_that("LM", {
+  skip_if_not_installed("forecast")
+
   # NULL model selection
   fable_fit <- USAccDeaths_tbl %>% model(lm = TSLM(value))
   forecast_fit <- lm(USAccDeaths ~ 1)

diff --git a/tests/testthat/test-nnetar.R b/tests/testthat/test-nnetar.R
@@ -1,4 +1,5 @@
 context("test-nnetar")
+skip_if_not_installed("nnet")
 
 airmiles <- as_tsibble(airmiles)
 test_that("Automatic NNETAR selection", {

diff --git a/tests/testthat/test-rw.R b/tests/testthat/test-rw.R
@@ -1,5 +1,6 @@
 context("test-rw.R")
 test_that("NAIVE", {
+  skip_if_not_installed("forecast")
   fable_fit <- USAccDeaths_tbl %>% model(naive = NAIVE(value))
   forecast_fc <- forecast::naive(USAccDeaths, h = 12)
 
@@ -21,6 +22,7 @@ test_that("NAIVE", {
 })
 
 test_that("RW w/ drift", {
+  skip_if_not_installed("forecast")
   fable_fit <- USAccDeaths_tbl %>% model(rw = RW(value ~ drift()))
   forecast_fc <- forecast::rwf(USAccDeaths, drift = TRUE, h = 12)
 
@@ -70,6 +72,7 @@ test_that("RW w/ drift", {
 })
 
 test_that("SNAIVE", {
+  skip_if_not_installed("forecast")
   fable_fit <- USAccDeaths_tbl %>% model(snaive = SNAIVE(value))
   forecast_fc <- forecast::snaive(USAccDeaths, h = 12)