--- a
+++ b/tests/testthat/test-imagedata.R
@@ -0,0 +1,18 @@
+# Testing functions of image datasets ####
+test_that("imagedata", {
+  
+  # import image data
+  img <- system.file(package = "VoltRon", "extdata/DAPI.tif")
+  vrimgdata <- importImageData(img, tile.size = 10)
+  vrimgdata <- importImageData(img, tile.size = 2)
+  vrimgdata <- importImageData(img, tile.size = 200)
+  vrimgdata <- importImageData(img, tile.size = 300)
+
+  # import image data when image is a stack
+  img_magick <- magick::image_read(img)
+  img_stack <- c(img_magick, img_magick)
+  vrimgdata <- importImageData(img_stack, tile.size = 10)
+
+  # return
+  expect_equal(1,1L)
+})
\ No newline at end of file