additional #1185 test for rowwise

tidyverse · Apr 9, 2018 · ea6db02 · ea6db02
1 parent a2b2510
commit ea6db02
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/tests/testthat/test-group-indices.R b/tests/testthat/test-group-indices.R
@@ -44,4 +44,10 @@ test_that("group_indices() can be used inside mutate (#1185)", {
     pull(mutate(df, g = group_indices())),
     rep(0L, 6)
   )
+
+  df <- data_frame(v1 = c(3, 3, 2, 2, 3, 1), v2 = 1:6)
+  expect_identical(
+    pull(mutate(rowwise(df), g = group_indices())),
+    1:6
+  )
 })