tests/testthat/test-importing-data.R

In GetTDData: Get Data for Brazilian Bonds (Tesouro Direto)

library(testthat)
library(GetTDData)

first_year <- 2022

test_df <- function(df) {
  expect_true(nrow(df) > 1)
  expect_true(ncol(df) > 1)

  return(invisible(TRUE))
}

test_that(desc = 'td_get() -- single LTN',{

  if (!covr::in_covr()) {
    testthat::skip_if_offline()
    testthat::skip_on_cran()
  }

  df_ltn <- td_get(asset_codes = 'LTN',
                   first_year = first_year)

  test_df(df_ltn)

})

test_that(desc = 'td_get() -- two assets',{

  if (!covr::in_covr()) {
    testthat::skip_if_offline()
    testthat::skip_on_cran()
  }

  df_ltn <- td_get(asset_codes = c('LTN', "NTN-B"),
                   first_year = first_year)

  test_df(df_ltn)

})

test_that(desc = 'td_get() -- by asset ',{

  if (!covr::in_covr()) {
    testthat::skip_if_offline()
    testthat::skip_on_cran()
  }

  available_assets <- get_td_names()

  last_year <- lubridate::year(Sys.Date()) - 1

  for (i_asset in available_assets) {
    df_temp <- td_get(i_asset,
                      first_year = first_year)

    test_df(df_temp)
  }

})