# 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)
})