--- a
+++ b/tests/testthat/test-featuredata.R
@@ -0,0 +1,19 @@
+# Testing functions of assay data ####
+test_that("featuredata", {
+  
+  # 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 feature data
+  expect_equal(vrFeatureTypeNames(visium_data), "RNA")
+  vrFeatureData(visium_data, feat_type = "RNA")
+  expect_equal(vrFeatureData(visium_data, feat_type = "Prot"), NULL)
+  
+  # return
+  expect_equal(1,1L)
+})
\ No newline at end of file