add test that values are retained along with metadata

Aariq · Aariq · commit dc8566f3d36c · 2024-12-19T09:37:45.000-07:00
diff --git a/tests/testthat/test-tar-terra-rast.R b/tests/testthat/test-tar-terra-rast.R
@@ -143,11 +143,13 @@ tar_test("metadata is maintained", {
       r
     }
     list(
-      tar_terra_rast(r, make_rast())
+      tar_terra_rast(r, make_rast()),
+      tar_terra_rast(r2, make_rast(), preserve_metadata = "drop")
     )
   })
   tar_make()
   x <- tar_read(r)
   expect_equal(terra::units(x), rep("m", 3))
   expect_equal(terra::time(x), as.Date("2024-10-01") + c(0, 1, 2))
+  expect_equal(head(terra::values(x)), head(terra::values(tar_read(r2))))
 })

Original file line number	Diff line number	Diff line change
`@@ -143,11 +143,13 @@ tar_test("metadata is maintained", {`
`143`	`143`	`r`
`144`	`144`	`}`
`145`	`145`	`list(`
`146`		`- tar_terra_rast(r, make_rast())`
	`146`	`+ tar_terra_rast(r, make_rast()),`
	`147`	`+ tar_terra_rast(r2, make_rast(), preserve_metadata = "drop")`
`147`	`148`	`)`
`148`	`149`	`})`
`149`	`150`	`tar_make()`
`150`	`151`	`x <- tar_read(r)`
`151`	`152`	`expect_equal(terra::units(x), rep("m", 3))`
`152`	`153`	`expect_equal(terra::time(x), as.Date("2024-10-01") + c(0, 1, 2))`
	`154`	`+ expect_equal(head(terra::values(x)), head(terra::values(tar_read(r2))))`
`153`	`155`	`})`