test_that("group_stats() works at season level", {
  skip_on_cran()
  skip_on_ci()
  expect_equal(group_stats(teams = c("Nebraska", "UCLA"),
                           year = 2024)$playerdata$Player[1],
               "Bergen Reilly")
  expect_equal(group_stats(teams = "UCLA", year = 2023,
                           sport = "MVB")$playerdata$Player[1],
               "Hideharu Nakamura")
})

test_that("group_stats() works at match level", {
  skip_on_cran()
  skip_on_ci()
  expect_equal(group_stats(teams = "Nebraska", year = 2024,
                           level = "match")$Player[1],
               "Rebekah Allick")
})

test_that("group_stats() works at pbp level", {
  skip_on_cran()
  skip_on_ci()
  expect_equal(group_stats(teams = "Nebraska", year = 2024,
                           level = "pbp")$home_team[1],
               "Kentucky")
})

test_that("group_stats() errors trigger correctly", {
  expect_error(group_stats(),
               "Enter valid team name.")
  expect_error(group_stats(teams = c("UNL", "UCLA"), year = 2024),
               "Enter valid team name")
  expect_error(group_stats(teams = "Nebraska"),
               "Enter valid year between 2020-")
  expect_error(group_stats(teams = "Nebraska", year = 2002),
               "Enter valid year between 2020-")
  expect_error(group_stats(teams = "Nebraska", year = "2024"),
               "Enter valid year between 2020-")
  expect_error(group_stats(teams = "Nebraska", year = 2024, level = "xxx"),
               "Enter valid level")
  expect_error(group_stats(teams = "Nebraska", year = 2024,  unique = 1),
               "`unique` must be a logical")
  expect_error(group_stats(teams = "Nebraska", year = 2024, sport = "VB"),
               "Enter valid sport")
})

test_that("group_player_stats() is deprecated", {
  skip_on_cran()
  skip_on_ci()
  rlang::local_options(lifecycle_verbosity = "warning")
  expect_warning(group_player_stats(teams = "Nebraska", year = 2024))
})