tests/testthat/test_StooqUtils.R

In wegar-2/VariousUtils: Various utility functions

testthat::context(desc = "testing the class StooqUtils...")

testthat::test_that(desc = "testing function lGetListOfTickersDataFromStooq", code = {

  dateStartDate <- as.Date("2019-01-01")
  dateEndDate <- as.Date("2019-12-31")
  cTickers <- c("USDPLN", "WIG20")
  cFrequency <- "d"

  # passing correct input to the function
  testthat::expect_error(
    object = StooqUtils$lGetListOfTickersDataFromStooq(
      cTickers = cTickers,
      dateStartDate = dateStartDate,
      dateEndDate = dateEndDate,
      cFrequency = cFrequency),
    regexp = NA)

  # passing one incorrect ticker symbol in the cTickers vector
  testthat::expect_warning(
    object = StooqUtils$lGetListOfTickersDataFromStooq(
      cTickers = c("EURUSD", "qwerty"),
      dateStartDate = dateStartDate,
      dateEndDate = dateEndDate,
      cFrequency = cFrequency),
    regexp = "*Output fetching*")

  # fetching weekly data
  testthat::expect_error(
    object = StooqUtils$lGetListOfTickersDataFromStooq(
      cTickers = cTickers,
      dateStartDate = dateStartDate,
      dateEndDate = dateEndDate,
      cFrequency = "w"),
    regexp = NA)

  # fetching monthly data
  testthat::expect_error(
    object = StooqUtils$lGetListOfTickersDataFromStooq(
      cTickers = cTickers,
      dateStartDate = dateStartDate,
      dateEndDate = dateEndDate,
      cFrequency = "m"),
    regexp = NA)

  # fetching quarterly data
  testthat::expect_error(
    object = StooqUtils$lGetListOfTickersDataFromStooq(
      cTickers = cTickers,
      dateStartDate = dateStartDate,
      dateEndDate = dateEndDate,
      cFrequency = "q"),
    regexp = NA)

  # fetching yearly data
  testthat::expect_error(
    object = StooqUtils$lGetListOfTickersDataFromStooq(
      cTickers = cTickers,
      dateStartDate = as.Date(x = "2015-01-01"),
      dateEndDate = as.Date(x = "2019-12-31"),
      cFrequency = "y"),
    regexp = NA)

})