--- a
+++ b/tests/testthat/test-data.R
@@ -0,0 +1,25 @@
+# Testing functions of assay data ####
+test_that("data", {
+  
+  # get data
+  data("visium_data")
+  
+  # get and set feature types
+  vrMainFeatureType(visium_data)
+  vrMainFeatureType(visium_data, assay = "Assay1") <- "RNA"
+  expect_warning(vrMainFeatureType(visium_data) <- "main")
+  
+  # get data
+  data <- vrData(visium_data, norm = FALSE)
+  data <- vrData(visium_data, norm = TRUE)
+  data <- vrData(visium_data, assay = "Assay1", norm = TRUE)
+  
+  # get data with features
+  data <- vrData(visium_data, features = vrFeatures(visium_data)[1:2], norm = FALSE)
+  expect_error(data <- vrData(visium_data, features = "feature", norm = FALSE))
+  data <- vrData(visium_data, features = vrFeatures(visium_data)[1:2], norm = TRUE)
+  expect_error(data <- vrData(visium_data, features = "feature", norm = TRUE))
+  
+  # return
+  expect_equal(1,1L)
+})
\ No newline at end of file