# Set number of data.table threads to 2
data.table::setDTthreads(threads = 2L)
# Set number of collapse threads to 1
collapse::set_collapse(nthreads = 1L)

test_that("calendar", {
  x <- time_seq(lubridate::today(),
    length.out = 100,
    time = "2 hours"
  )
  y <- time_seq(lubridate::today(),
    length.out = 100,
    time = "2 days"
  )
  cal1 <- calendar(x)
  cal2 <- calendar(y)
  expect_equal(
    calendar(x, label = FALSE),
    cal1 %>%
      dplyr::select(-all_of(c("month_l", "wday_l")))
  )
  expect_equal(
    calendar(y, label = FALSE),
    cal2 %>%
      dplyr::select(-all_of(c("month_l", "wday_l")))
  )
})