Switched from all.equal to expect_equal

BodenmillerGroup · Dec 13, 2023 · 32365f3 · 32365f3
1 parent fc75f61
commit 32365f3
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/tests/testthat/test_binAcrossPixels.R b/tests/testthat/test_binAcrossPixels.R
@@ -33,7 +33,7 @@ test_that("binAcrossPixels function works.", {
     dimnames(test2) <- NULL
     dimnames(test)  <- NULL
 
-    all.equal(test2, test)
+    expect_equal(test2, test)
 
     expect_silent(out <- binAcrossPixels(cur_sce, bin_size = 10, statistic = "mean"))
 
@@ -46,7 +46,7 @@ test_that("binAcrossPixels function works.", {
     dimnames(test2) <- NULL
     dimnames(test)  <- NULL
 
-    all.equal(test2, test)
+    expect_equal(test2, test)
 
     # Works
     expect_silent(out <- binAcrossPixels(cur_sce, bin_size = 2))

diff --git a/tests/testthat/test_findBorderCells.R b/tests/testthat/test_findBorderCells.R
@@ -175,6 +175,6 @@ test_that("findBorderCells function works if cells are not ordered by image", {
     expect_silent(sce2  <- findBorderCells(sce2, img_id = "ImageNb", border_dist = 10))
     plotSpatial(sce2, img_id = "ImageNb", node_color_by = "border_cells")
 
-    all.equal(pancreasSCE$border_cells, sce2[,colnames(pancreasSCE)]$border_cells)
+    expect_equal(pancreasSCE$border_cells, sce2[,colnames(pancreasSCE)]$border_cells)
 
     })