Add test for tidyverse#6304

DavisVaughan · Jun 28, 2022 · 70b2225 · 70b2225
1 parent 8b58504
commit 70b2225
Showing 1 changed file with 11 additions and 0 deletions.
diff --git a/tests/testthat/test-context.R b/tests/testthat/test-context.R
@@ -13,6 +13,17 @@ test_that("cur_group() works", {
 
 })
 
+test_that("cur_group() works with empty grouped data frame (#6304)", {
+  df <- tibble(x = integer())
+  gdf <- group_by(df, x)
+
+  out <- mutate(df, y = cur_group())
+  expect_identical(out$y, tibble())
+
+  out <- mutate(gdf, y = cur_group())
+  expect_identical(out$y, tibble(x = integer()))
+})
+
 test_that("cur_group_idx() gives unique id", {
   df <- tibble(x = c("b", "a", "b"))
   gf <- group_by(df, x)