tests/testthat/test-add-group-id.R

test_df <- data.frame(
  group = rep(LETTERS[1:3], 3),
  data = 1:9
)

test_that("add_group_id works", {
  expect_silent(add_group_id(test_df, group))
  new_group_df <- add_group_id(test_df, group)
  expect_s3_class(new_group_df, "data.frame")
  expect_s3_class(new_group_df, "tbl")
  expect_snapshot_output(new_group_df)
})
njtierney/yahtsee documentation built on Feb. 5, 2022, 8:25 p.m.