Update test_force_sorted.R

rformassspectrometry · Mar 19, 2024 · fa20de1 · fa20de1
1 parent 776f064
commit fa20de1
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/tests/testthat/test_force_sorted.R b/tests/testthat/test_force_sorted.R
@@ -8,7 +8,7 @@ test_that("forceSorting works", {
 
     # Test with decreasing values at the end
     vec <- c(NA, NA, NA, 1.2, 1.1, 1.14, 1.2, 1.3, 1.4, 1.04, 1.2, 1.04, NA)
-    expect_warning(result <- force_sorted(vec), "replacing")
+    expect_warning(result <- force_sorted(vec, by = 0.000001), "replacing")
     sorted <- c(NA, NA, NA, 1.2, 1.225, 1.25, 1.275, 1.3, 1.4, 1.400001,
                 1.400002, 1.400003, NA)
     expect_equal(result, sorted)