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