Add new test

tidyverse · Aug 6, 2023 · 6b64951 · 6b64951
1 parent 9133b7a
commit 6b64951
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/tests/testthat/test-count-tally.R b/tests/testthat/test-count-tally.R
@@ -12,6 +12,12 @@ test_that("count can sort output", {
   expect_equal(out, tibble(x = c(2, 1), n = c(3, 2)))
 })
 
+test_that("count can rename grouping columns", {
+  df <- tibble(x = c(2, 1, 1, 2, 1))
+  out <- count(df, y = x)
+  expect_equal(out, tibble(y = c(1, 2), n = c(3, 2)))
+})
+
 test_that("informs if n column already present, unless overridden", {
   df1 <- tibble(n = c(1, 1, 2, 2, 2))
   expect_message(out <- count(df1, n), "already present")