test some parameters

geoarrow · May 27, 2024 · e55a5d6 · e55a5d6
1 parent 5dd7b83
commit e55a5d6
Showing 1 changed file with 29 additions and 0 deletions.
diff --git a/tests/testthat/test-type.R b/tests/testthat/test-type.R
@@ -119,6 +119,35 @@ test_that("vctr type constructors create the correct types", {
   )
 })
 
+test_that("vctr type constructors pass parameters through", {
+  expect_identical(
+    geoarrow_schema_parse(geoarrow_wkb(crs = "OGC:CRS84", edges = "SPHERICAL")),
+    geoarrow_schema_parse(
+      na_extension_wkb(crs = "OGC:CRS84", edges = "SPHERICAL")
+    )
+  )
+
+  expect_identical(
+    geoarrow_schema_parse(
+      geoarrow_point(
+        dimensions = "XYZ",
+        coord_type = "INTERLEAVED",
+        crs = "OGC:CRS84",
+        edges = "SPHERICAL"
+      )
+    ),
+    geoarrow_schema_parse(
+      na_extension_geoarrow(
+        "POINT",
+        dimensions = "XYZ",
+        coord_type = "INTERLEAVED",
+        crs = "OGC:CRS84",
+        edges = "SPHERICAL"
+      )
+    )
+  )
+})
+
 test_that("geoarrow_schema_parse() can parse a schema", {
   parsed <- geoarrow_schema_parse(na_extension_geoarrow("POINT"))
   expect_identical(parsed$id, 1L)