Split test (#6883)

tidyverse · Jul 17, 2023 · d97a6bf · d97a6bf
1 parent 16b472f
commit d97a6bf
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/tests/testthat/test-summarise.R b/tests/testthat/test-summarise.R
@@ -293,7 293,7 @@ test_that("named tibbles are packed (#2326)", {
  expect_equal(out$df, tibble(y = 4, z = 3))
 })
 
-test_that("summarise(.groups=)", {
 test_that("summarise(.groups=) in global environment", {
  expect_message(eval_bare(
  expr(data.frame(x = 1, y = 2) %>% group_by(x, y) %>% summarise()),
  env(global_env())
@@ -302,7 302,9 @@ test_that("summarise(.groups=)", {
  expr(data.frame(x = 1, y = 2) %>% rowwise(x, y) %>% summarise()),
  env(global_env())
  ))
 })
 
 test_that("summarise(.groups=)", {
  df <- data.frame(x = 1, y = 2)
  expect_equal(df %>% summarise(z = 3, .groups= "rowwise"), rowwise(data.frame(z = 3)))