Adds test for rstudio#95

chendaniely · Mar 16, 2020 · 6671cea · 6671cea
1 parent 3baa4d9
commit 6671cea
Showing 1 changed file with 13 additions and 0 deletions.
diff --git a/tests/testthat/test_detect_mistakes.R b/tests/testthat/test_detect_mistakes.R
@@ -711,3 +711,16 @@ test_that("detect_mistakes does not throw error for multiple matches of argument
 
 })
 
+test_that("detect_mistakes does not throw error for multiple matches of formal", {
+
+  a <- function(x, yab = 1, ...) x
+  user <-     quote(a(1, y = 2, ya = 3))
+  solution <- quote(a(1))
+  expect_equal(
+    detect_mistakes(user, solution)
+    ,
+    surplus_argument(this_call = quote(a()), this = quote(2), this_name = "y")
+  )
+
+})
+