tests/testthat/test-build_trading_calendar.R

In ces0491/dateR: Utility functions for working with dates

test_that("correct trading dates are returned", {

  trading_calendar <- build_trading_calendar(start_year = 2017, end_year = 2021)

  test_trading_calendar <- trading_calendar %>%
    dplyr::filter(date <= "2021-12-31") %>%
    dplyr::select(date, trading_year, trading_month, trading_quarter, trading_week)

  test_file <- "test_calendar.rds"
  src_dir <- system.file("testdata", package = "dateR")
  src_file <- paste(src_dir, test_file, sep = "/")

  expected_trading_calendar <- readRDS(src_file)

  testthat::expect_equal(test_trading_calendar, expected_trading_calendar)
})