add roundtrip testcase

mmyrte · mmyrte · commit 14beca6ee81d · 2025-09-08T16:08:36.000+02:00
diff --git a/inst/tinytest/test_vect-geom.R b/inst/tinytest/test_vect-geom.R
@@ -1,14 +1,16 @@
-
-f <- system.file("ex/lux.shp", package="terra")
+f <- system.file("ex/lux.shp", package = "terra")
 lux <- vect(f)
 
 listofraw <- geom(lux[1:2, ], wkb = TRUE)
 wkb <- listofraw[[1]]
 hex <- geom(lux[1, ], hex = TRUE)
 
+expect_equal(
+  vect(listofraw, type = NULL, crs = crs(lux)),
+  lux[1:2, character()]
+)
 
-expect_equal(typeof(listofraw), "list") 
+expect_equal(typeof(listofraw), "list")
 expect_equal(typeof(wkb), "raw")
 
 expect_equal(tolower(paste0(as.character(wkb), collapse = "")), tolower(hex))
-
