tests/testthat/test_calendar.R

In jagg19/AlpacaforR: Trade with Alpaca using R

#' @include internal.R
#' @include Clock.R
vcr::vcr_configure(dir = file.path(dirname(.log_path), "calendar"))
vcr::use_cassette("calendar_returns_the_appropriate_response", {
test_that("calendar returns the appropriate response", {
  expect_message({.c <- calendar("2020-03-04", "2020-04-26")}, regexp = "Sunday")
  expect_s3_class(.c$date, "Date")
  expect_s4_class(.c$day, "Interval")
  expect_s4_class(.c$session, "Interval")
  expect_s3_class(.c$dow, "factor")
  expect_s3_class(.c, "data.frame")
  expect_length(.c, 8)
})
})