Check that vars_select() can drop duplicates by position

Closes r-lib#94
lionel- · Sep 23, 2019 · 71add7e · 71add7e
1 parent e0813f3
commit 71add7e
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/tests/testthat/test-vars-select.R b/tests/testthat/test-vars-select.R
@@ -171,3 +171,9 @@ test_that("select helpers support redundantly named vectors", {
   expect_identical(vars_select(c("a", "b", "a"), one_of(c("b", "a"))), c(b = "b", a...2 = "a", a...3 = "a"))
   expect_identical(vars_select(c("a1", "b", "a1", "a2"), b, num_range("a", 1:2)), c(b = "b", a1...2 = "a1", a1...3 = "a1", a2 = "a2"))
 })
+
+test_that("vars_select() can drop duplicate names by position (#94)", {
+  expect_identical(vars_select(c("a", "b", "a"), 2), c(b = "b"))
+  expect_identical(vars_select(c("a", "b", "a"), -3), c(a = "a", b = "b"))
+  expect_identical(vars_select(c("a", "b", "a"), -1), c(b = "b", a = "a"))
+})