--- a
+++ b/tests/testthat/test-clustering.R
@@ -0,0 +1,31 @@
+test_that("spatial", {
+  
+  # get data
+  data("xenium_data")
+  
+  # profile neighbors, kNN
+  xenium_data <- getProfileNeighbors(xenium_data, method = "kNN", k = 10, data.type = "pca")
+  graphs <- vrGraph(xenium_data, graph.type = "kNN")
+  expect_true(inherits(graphs,"igraph"))
+  expect_true(length(igraph::E(graphs)) > 0)
+  xenium_data <- getClusters(xenium_data, graph = "kNN", label = "cluster_knn")
+  expect_true(is.numeric(unique(xenium_data$cluster_knn)))
+  
+  # profile neighbors, SNN
+  xenium_data <- getProfileNeighbors(xenium_data, method = "SNN", k = 10, data.type = "pca")
+  graphs <- vrGraph(xenium_data, graph.type = "SNN")
+  expect_true(inherits(graphs,"igraph"))
+  expect_true(length(igraph::E(graphs)) > 0)
+  xenium_data <- getClusters(xenium_data, graph = "SNN", label = "cluster_SNN")
+  expect_true(is.numeric(unique(xenium_data$cluster_SNN)))
+  
+  # check parameters
+  expect_error(xenium_data <- getClusters(xenium_data, graph = "SNN", label = "cluster_SNN", resolution = 0))
+  expect_error(xenium_data <- getClusters(xenium_data, graph = "SNN", label = "cluster_SNN", resolution = c(0,1)))
+  expect_error(xenium_data <- getClusters(xenium_data, graph = "SNN", label = "cluster_SNN", resolution = -0.5))
+  expect_error(xenium_data <- getClusters(xenium_data, graph = "SNN", label = "cluster_SNN", resolution = 1, abundance_limit = 0))
+  expect_error(xenium_data <- getClusters(xenium_data, graph = "SNN", label = "cluster_SNN", resolution = 1, abundance_limit = 1.1))
+  
+  # return
+  expect_equal(1,1L)
+})
\ No newline at end of file