--- a
+++ b/tests/testthat/test-voltronobjects.R
@@ -0,0 +1,66 @@
+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)
+})
+