diff --git a/modules/Saving/R/get_dir.R b/modules/Saving/R/get_dir.R
index 915c3f11c5005dec8cb79b4dc1df8969e1e97ec5..a2cbc79f21620eef6b983ce3d17b8321ed3fc044 100644
--- a/modules/Saving/R/get_dir.R
+++ b/modules/Saving/R/get_dir.R
@@ -37,7 +37,7 @@ get_dir <- function(recipe, variable, agg = "global") {
         fcst.sdate <- paste0("hcst-", recipe$Analysis$Time$sdate)
       }
     }
-  
+    ## TODO: Remove calibration method from output directory?
     calib.method <- tolower(recipe$Analysis$Workflow$Calibration$method)
     store.freq <- recipe$Analysis$Variables$freq
     ## TODO: Change "_country"
@@ -52,7 +52,6 @@ get_dir <- function(recipe, variable, agg = "global") {
                                    "-", store.freq, "/", variable, "/",
                                    fcst.sdate, "/")})
   }
-  ## TODO: Dir creation?
 
   return(dir)
 }
diff --git a/tests/recipes/recipe-seasonal_downscaling.yml b/tests/recipes/recipe-seasonal_downscaling.yml
index 1a2a3110cf2414b5c2d3052b0c8be4a1b39a3a35..41df9e82ce41e02630f4bd13a4a7042f650e7301 100644
--- a/tests/recipes/recipe-seasonal_downscaling.yml
+++ b/tests/recipes/recipe-seasonal_downscaling.yml
@@ -44,7 +44,7 @@ Analysis:
       log_reg_method:
       nanalogs: 3
       target_grid: /esarchive/recon/ecmwf/era5/daily_mean/tas_f1h/tas_199301.nc
-      save: 'none'
+      save: 'all'
   Output_format: S2S4E
 Run:
   Loglevel: INFO
diff --git a/tests/testthat/test-seasonal_downscaling.R b/tests/testthat/test-seasonal_downscaling.R
index 0353a04ecee60538f354a23f45b9f5c718ed122c..fde0756d4408935d15f6176fa82eebe13624273d 100644
--- a/tests/testthat/test-seasonal_downscaling.R
+++ b/tests/testthat/test-seasonal_downscaling.R
@@ -4,7 +4,7 @@ context("Seasonal daily data")
 source("modules/Loading/Loading.R")
 source("modules/Skill/Skill.R")
 source("modules/Downscaling/Downscaling.R")
-
+source("modules/Saving/Saving.R")
 
 recipe_file <- "tests/recipes/recipe-seasonal_downscaling.yml"
 recipe <- prepare_outputs(recipe_file, disable_checks = F)
@@ -192,4 +192,17 @@ FALSE
 
 })
 
+test_that("4. Check saved data", {
+
+outputs <- paste0(recipe$Run$output_dir, "/outputs/Downscaling/")
+expect_equal(
+all(basename(list.files(outputs, recursive = T)) %in%
+c("tas_19931201.nc", "tas_19941201.nc", "tas_19951201.nc",
+  "tas_19961201.nc", "tas-obs_19931201.nc", "tas-obs_19941201.nc",
+  "tas-obs_19951201.nc", "tas-obs_19961201.nc")),
+TRUE
+)
+
+})
+
 unlink(recipe$Run$output_dir, recursive = TRUE)