From 30552e869d51f99fef879e896b91404c7988517b Mon Sep 17 00:00:00 2001
From: Cidree <adrian.cidre@gmail.com>
Date: Sat, 23 Nov 2024 17:08:11 +0100
Subject: [PATCH] reduce forest country tests

---
 CRAN-SUBMISSION                      |  4 ++--
 tests/testthat/test-forest-country.R | 11 ++---------
 2 files changed, 4 insertions(+), 11 deletions(-)

diff --git a/CRAN-SUBMISSION b/CRAN-SUBMISSION
index 4810a7c..5911cb2 100644
--- a/CRAN-SUBMISSION
+++ b/CRAN-SUBMISSION
@@ -1,3 +1,3 @@
 Version: 0.2.0
-Date: 2024-11-22 10:58:06 UTC
-SHA: 45836d91c48e355c88af29143ffee9e2ac6efb71
+Date: 2024-11-22 20:20:45 UTC
+SHA: 43dae5a06dee072501c209baefefebb945f9ad3b
diff --git a/tests/testthat/test-forest-country.R b/tests/testthat/test-forest-country.R
index c00a574..3a01f18 100644
--- a/tests/testthat/test-forest-country.R
+++ b/tests/testthat/test-forest-country.R
@@ -9,13 +9,6 @@ lugo_mfe <- fd_forest_spain_mfe50(
   quiet    = TRUE
 )
 
-## Get all files
-forest_spain_list <- purrr::map(
-  metadata_forestdata$mfe_provinces,
-  fd_forest_spain_mfe50,
-  .progress = TRUE
-)
-
 ## 1.2. Unit tests ------------------
 
 ## Check one file
@@ -25,11 +18,11 @@ test_that("Data is downloaded properly", {
 })
 
 ## Check all files (~10min)
-## Check only 15
+## Check only 5
 test_that("All files are downloaded", {
   expect_no_error(
     purrr::map(
-      metadata_forestdata$mfe_provinces[1:15],
+      metadata_forestdata$mfe_provinces[1:5],
       fd_forest_spain_mfe50
     )
   )