--- a
+++ b/tests/testthat/test-coordinates.R
@@ -0,0 +1,27 @@
+# Testing functions of manipulating coordinates ####
+test_that("coordinates", {
+  
+  # get data
+  data("visium_data")
+  
+  # coordinates
+  coords <- vrCoordinates(visium_data)
+  coords <- vrCoordinates(visium_data, image_name = "main")
+  coords <- vrCoordinates(visium_data, spatial_name = "main")
+  expect_warning(coords <- vrCoordinates(visium_data, reg = TRUE))
+  expect_warning(coords <- vrCoordinates(visium_data, assay = "Assay1", reg = TRUE))
+  
+  # update coordinates
+  vrCoordinates(visium_data) <- coords*2
+  expect_error(vrCoordinates(visium_data, reg = TRUE) <- coords*3)
+  
+  # flip coordinates
+  visium_data <- flipCoordinates(visium_data)
+  
+  # segments
+  segments <- vrSegments(visium_data)
+  expect_warning(segments <- vrSegments(visium_data, reg = TRUE))
+  expect_warning(segments <- vrSegments(visium_data, assay = "Assay1", reg = TRUE))
+  
+  expect_equal(1,1L)
+})
\ No newline at end of file