tests: for multiple duplicates in table (issue #72)

rformassspectrometry · Oct 21, 2020 · 9a67767 · 9a67767
1 parent aaee4f3
commit 9a67767
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/tests/testthat/test_matching.R b/tests/testthat/test_matching.R
@@ -86,6 +86,15 @@ test_that("closest, duplicates", {
     y <- c(4.6, 4.7, 4.8, 4.9, 5, 6, 7, 8)
     expect_equal(closest(x, y, tolerance = 3, duplicates = "closest"),
                  c(NA, NA, NA, 1, 5, 6, 7))
+
+    # multiple duplicates in table, see
+    # https://github.com/rformassspectrometry/MsCoreUtils/issues/72
+    expect_equal(closest(1:2, rep(1:2, each = 2),
+                         tolerance = 0, duplicates = "closest"),
+                 c(1, 3))
+    expect_equal(closest(1:2, rep(1:2, each = 3),
+                         tolerance = 0, duplicates = "closest"),
+                 c(1, 4))
 })
 
 test_that("common", {