--- a
+++ b/tests/testthat/test-image.R
@@ -0,0 +1,62 @@
+test_that("image", {
+  
+  # get data
+  data("visium_data")
+  
+  # get image
+  images <- vrImages(visium_data)
+  images <- vrImages(visium_data, name = "main")
+  expect_error(images <- vrImages(visium_data, name = "main2"))
+  images <- vrImages(visium_data, name = "main", channel = "H&E")
+  expect_warning(images <- vrImages(visium_data, name = "main", channel = "H&E2"))
+  
+  # manipulate image
+  visium_data_resize <- resizeImage(visium_data, size = 400)
+  visium_data_modulate <- modulateImage(visium_data, brightness = 400)
+  
+  # add new image
+  visium_data[["Assay1"]]@image[["new_image"]] <- vrImages(visium_data_resize)
+  
+  # get image names
+  expect_equal(vrImageNames(visium_data), c("main", "new_image"))
+  
+  # get main image
+  expect_equal(vrMainImage(visium_data[["Assay1"]]), "main")
+  expect_equal(vrMainSpatial(visium_data[["Assay1"]]), "main")
+  
+  # change main image
+  vrMainImage(visium_data[["Assay1"]]) <- "new_image"
+  vrMainSpatial(visium_data[["Assay1"]]) <- "new_image"
+  expect_equal(vrMainImage(visium_data[["Assay1"]]), "new_image")
+  expect_equal(vrMainSpatial(visium_data[["Assay1"]]), "new_image")
+  
+  # return
+  expect_equal(1,1L)
+})
+
+test_that("import image voltron data", {
+  
+  # get image
+  imgfile <- system.file("extdata", "DAPI.tif", package = "VoltRon")
+  
+  # tile size
+  imgdata <- importImageData(imgfile, tile.size = 4, image_name = "main")
+  imgdata <- importImageData(imgfile, tile.size = 1, image_name = "main")
+  imgdata <- importImageData(imgfile, tile.size = 200, image_name = "main")
+  expect_equal(vrImageChannelNames(imgdata)$Spatial, "main")
+  expect_error(imgdata <- importImageData("", tile.size = 200, image_name = "main"))
+  
+  # channel names
+  imgdata <- importImageData(imgfile, tile.size = 200, image_name = "main", channel_names = "DAPI")
+  expect_equal(vrImageChannelNames(imgdata)$Channels, "DAPI")
+  
+  # multiple images
+  imgfile <- c(imgfile, imgfile)
+  imgdata <- importImageData(imgfile, tile.size = 4)
+  expect_equal(vrImageChannelNames(imgdata)$Channels, "channel_1,channel_2")
+  imgdata <- importImageData(imgfile, tile.size = 4, channel_names = c("DAPI", "DAPI2"))
+  expect_equal(vrImageChannelNames(imgdata)$Channels, "DAPI,DAPI2")
+  
+  # return
+  expect_equal(1,1L)
+})
\ No newline at end of file