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