Fix test for riscv64 (#114)

mr-c · web-flow · commit a5d1cb584e6d · 2024-10-06T19:20:00.000+02:00
Fixes #113
diff --git a/tests/testthat/test-hashing.R b/tests/testthat/test-hashing.R
@@ -241,7 +241,7 @@ test_that("edge cases are handled correctly with combinatorial barcodes", {
         out <- hashedDrops(mat[keep,,drop=FALSE], combinations=rbind(4:2), ambient=ambient[keep])
         SCALING <- median(mat[keep]/ambient[keep])
         PSEUDO <- mean(ambient[keep]) * SCALING
-        expect_identical(out$LogFC, .compute_expected_lfc(SCALING, PSEUDO))
+        expect_equal(out$LogFC, .compute_expected_lfc(SCALING, PSEUDO))
     }
 })
 

Original file line number	Diff line number	Diff line change
`@@ -241,7 +241,7 @@ test_that("edge cases are handled correctly with combinatorial barcodes", {`
`241`	`241`	`out <- hashedDrops(mat[keep,,drop=FALSE], combinations=rbind(4:2), ambient=ambient[keep])`
`242`	`242`	`SCALING <- median(mat[keep]/ambient[keep])`
`243`	`243`	`PSEUDO <- mean(ambient[keep]) * SCALING`
`244`		`- expect_identical(out$LogFC, .compute_expected_lfc(SCALING, PSEUDO))`
	`244`	`+ expect_equal(out$LogFC, .compute_expected_lfc(SCALING, PSEUDO))`
`245`	`245`	`}`
`246`	`246`	`})`
`247`	`247`