--force; query_modis_files

.github/workflows/test-container-dl-calc.yaml

@@ -47,7 +47,7 @@ jobs:
       - name: Build the Apptainer container (if cache miss)
         if: steps.cache-sif.outputs.cache-hit != 'true'
         run: |
-          apptainer build --fakeroot beethoven_dl_calc.sif container/beethoven_dl_calc.def
+          apptainer build --force --fakeroot beethoven_dl_calc.sif container/beethoven_dl_calc.def
 
       - name: Cache the .sif file
         if: steps.cache-sif.outputs.cache-hit != 'true'

R/helpers.R

@@ -31,4 +31,4 @@ cancel <- function() {
 batch <- function(file = "run.sh") {
   system(paste0("sbatch ", file))
 }
-# nocov end
+# nocov end

tests/testthat/test-calculate.R

@@ -92,3 +92,27 @@ testthat::test_that("par_narr (weasd + omega)", {
   )
 
 })
+
+################################################################################
+##### query_modis_files
+testthat::test_that("query_modis_files", {
+
+  path <- testthat::test_path("..", "testdata", "calculate", "modis")
+  list <- list(
+    c("2018001"), c("2018002")
+  )
+
+  # expect no error
+  testthat::expect_no_error(
+    files1 <- query_modis_files(path, list, index = 1)
+  )
+  # expect 23 files
+  testthat::expect_length(files1, 23)
+
+  # expect no error
+  testthat::expect_no_error(
+    files2 <- query_modis_files(path, list, index = 1)
+  )
+  # expect 23 files
+  testthat::expect_length(files2, 23)
+})