test_that("assay", {

  # get data

  data("visium_data")

  # get assay names

  expect_equal(vrAssayNames(visium_data), "Assay1")

  # get assay object

  visium_data[["Assay1"]]

  # subset on assay name

  visium_data_sub <- subset(visium_data, assays = "Assay1")

  # subset on assay type

  visium_data_sub <- subset(visium_data, assays = "Visium")

  expect_equal(1,1L)

})

test_that("sample", {

  # get data

  data("visium_data")

  # get sample metadata

  SampleMetadata(visium_data)

  # change sample name

  visium_data$Sample <- "Test_Sample_Name"

  # check metadata

  expect_equal(unique(visium_data$Sample), "Test_Sample_Name")

  # check list name

  expect_equal(unique(names(visium_data@samples)), "Test_Sample_Name")

  # check metadata name

  sample.metadata <- SampleMetadata(visium_data)

  expect_equal(sample.metadata$Sample == "Test_Sample_Name", TRUE)

  expect_equal(1,1L)

})

test_that("merge objects", {

  # get data

  data("xenium_data")

  data("visium_data")

  data("melc_data")

  # merge two of same types

  xenium_data2 <- xenium_data

  xenium_data2$Sample <- "XeniumR2"

  merged_data <- merge(xenium_data, xenium_data2, verbose = FALSE)

  # merge two of different types

  merged_data <- merge(xenium_data, visium_data, verbose = FALSE)

  # merge multiple

  merge_list <- list(xenium_data, visium_data, melc_data)

  merged_data <- merge(merge_list[[1]], merge_list[-1], verbose = FALSE)

  expect_equal(1,1L)

})