test_that("level_week", {
  td_1 <- when() |>
    select_week_level(week = FALSE)
  td_2 <- td_1 |>
    select_week_level(include_all = TRUE)
  td_3 <- td_1 |>
    select_week_level()
  td_4 <- when() |>
    select_week_level(exclude_all = TRUE)

  expect_equal(
    td_1$att_include_conf[names(td_1$att_levels[td_1$att_levels == 'week'])],
    c(year_week = TRUE, week = FALSE)
  )

  expect_equal(
    td_2$att_include_conf[names(td_1$att_levels[td_1$att_levels == 'week'])],
    c(year_week = TRUE, week = TRUE)
  )

  expect_equal(
    td_3$att_include_conf[names(td_1$att_levels[td_1$att_levels == 'week'])],
    c(year_week = TRUE, week = FALSE)
  )

  expect_equal(
    td_4$att_include_conf[names(td_1$att_levels[td_1$att_levels == 'week'])],
    c(year_week = FALSE, week = FALSE)
  )

})