Add test for pmap()

tidyverse · Aug 5, 2020 · cd206b1 · cd206b1
1 parent 7abe7af
commit cd206b1
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/tests/testthat/test-map2.R b/tests/testthat/test-map2.R
@@ -60,9 +60,13 @@ test_that("map2() with empty input copies names", {
   expect_identical(map2_raw(named_list, list(), identity), named(raw()))
 })
 
-test_that("map2() recycle names (#779)", {
+test_that("map2() and pmap() recycle names (#779)", {
   expect_identical(
     map2(c(a = 1), 1:2, ~ .x),
     list(a = 1, a = 1)
   )
+  expect_identical(
+    pmap(list(c(a = 1), 1:2), ~ .x),
+    list(a = 1, a = 1)
+  )
 })