From 810910ff08cc916b36a322eb4a928ea9ee2a81cb Mon Sep 17 00:00:00 2001
From: Andy Teucher <andy.teucher@gmail.com>
Date: Wed, 24 Jan 2024 10:05:07 -0800
Subject: [PATCH] Skip testing fsa on CI - statcan server can timeout

---
 tests/testthat/test-data_functions.R | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/tests/testthat/test-data_functions.R b/tests/testthat/test-data_functions.R
index 22ade625..549ebf36 100644
--- a/tests/testthat/test-data_functions.R
+++ b/tests/testthat/test-data_functions.R
@@ -1,13 +1,16 @@
 context("test layer load")
 
-
 avail <- available_layers()
 fn_names <- avail$layer_name[!(avail$local) &
                                !grepl("cded_", avail$layer_name)]
 
 # Only test bec and tsa once in a while - they're really big
-fn_names <- setdiff(fn_names, c("bec", "tsa"))
-
+donttest <- c("bec", "tsa")
+# Skip fsa on ci - statcan server can timeout a lot
+if (nzchar(Sys.getenv("CI"))) {
+  donttest <- c(donttest, "fsa")
+}
+fn_names <- setdiff(fn_names, donttest)
 
 test_that("All sf layer function work without error and returns an sf object.", {
   skip_on_cran()