update sits_merge test

tests/testthat/test-cube.R

@@ -128,13 +128,16 @@ test_that("Combining Sentinel-1 with Sentinel-2 cubes", {
  "MPC collection is not accessible"
  )
 
- s2_reg <- suppressWarnings(sits_regularize(
- cube = s2_cube,
- period = "P30D",
- res = 240,
- multicores = 2,
- output_dir = dir_images
- ))
+
+ s2_reg <- suppressWarnings(
+ sits_regularize(
+ cube = s2_cube,
+ period = "P30D",
+ res = 240,
+ multicores = 2,
+ output_dir = dir_images
+ )
+ )
 
  s1_cube <- .try(
  {
@@ -156,23 +159,24 @@ test_that("Combining Sentinel-1 with Sentinel-2 cubes", {
  "MPC collection is not accessible"
  )
 
- s1_reg <- suppressWarnings(sits_regularize(
- cube = s1_cube,
- period = "P30D",
- res = 240,
- tiles = "20LKP",
- multicores = 2,
- output_dir = dir_images
- ))
+ s1_reg <- suppressWarnings(
+ sits_regularize(
+ cube = s1_cube,
+ period = "P30D",
+ res = 240,
+ tiles = "20LKP",
+ multicores = 2,
+ output_dir = dir_images
+ )
+ )
 
  testthat::expect_warning(
  sits_merge(
  s2_reg,
  s1_reg,
- tolerance = "P3D",
- output_dir = merge_images
+ tolerance = "P3D"
  ),
- regexp = "he tolerance will be used to merge them."
+ regexp = "use the `output_dir` parameter."
  )
 
  testthat::expect_error(
@@ -183,7 +187,7 @@ test_that("Combining Sentinel-1 with Sentinel-2 cubes", {
  output_dir = merge_images
  )
  )
-
+ # Merging with writing images
  cube_merged <- suppressWarnings(
  sits_merge(
  s2_reg,
@@ -210,6 +214,34 @@ test_that("Combining Sentinel-1 with Sentinel-2 cubes", {
  )
  )
  )
+ # Merging images without writing
+ cube_merged2 <- suppressWarnings(
+ sits_merge(
+ s2_reg,
+ s1_reg,
+ tolerance = "P3D"
+ )
+ )
+ testthat::expect_true(
+ all(sits_timeline(cube_merged) == sits_timeline(cube_merged2))
+ )
+ testthat::expect_true(
+ all(
+ sits_bands(cube_merged) %in% sits_bands(cube_merged2)
+ )
+ )
+ testthat::expect_true(
+ all(
+ .fi_paths(.fi_filter_bands(.fi(s1_reg), "VV")) %in%
+ .fi_paths(.fi_filter_bands(.fi(cube_merged2), "VV"))
+ )
+ )
+ testthat::expect_false(
+ all(
+ .fi_paths(.fi_filter_bands(.fi(cube_merged), "VV")) %in%
+ .fi_paths(.fi_filter_bands(.fi(cube_merged2), "VV"))
+ )
+ )
 
  unlink(list.files(merge_images, pattern = ".tif", full.names = TRUE))
  unlink(list.files(dir_images, pattern = ".tif", full.names = TRUE))