Add geometric testthat

ncborcherding · Apr 5, 2024 · 49e6ba6 · 49e6ba6
1 parent b5c17ad
commit 49e6ba6
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 0 deletions.
diff --git a/tests/testthat/test-runIbex.R b/tests/testthat/test-runIbex.R
@@ -43,4 +43,15 @@ test_that("runIbex works with seurat objects", {
 	  tolerance=1e-2
 	)
 
+	ibex_example <- runIbex(ibex_example, 
+	                        chains = "Heavy",
+	                        method = "geometric",
+	                        reduction.name = "Heavy_Geometric")
+
+	expect_equal(
+	  ibex_example@reductions$Heavy_Geometric@cell.embeddings,
+	  getdata("runIbex", "runIbex_Heavy_geometric_reduction"),
+	  tolerance=1e-2
+	)
+
 })
diff --git a/tests/testthat/testdata/runIbex/runIbex_Heavy_geometric_reduction.rds b/tests/testthat/testdata/runIbex/runIbex_Heavy_geometric_reduction.rds