tests/testthat/test-yc.R

In rb3: Download and Parse Public Data Released by B3 Exchange

skip_on_cran()
skip_if_offline()

test_df <- function(df_in) {
  expect_true(nrow(df_in) > 0)
  expect_true(ncol(df_in) > 0)
  expect_true(tibble::is_tibble(df_in))

  return(invisible(TRUE))
}

test_that("Test of yc_mget function", {
  first_date <- Sys.Date() - 50
  last_date <- Sys.Date()

  # first call (no cache)
  df_yc_1 <- yc_mget(first_date,
    last_date,
    by = 5,
    do_cache = FALSE
  )

  test_df(df_yc_1)

  # first call (with cache)
  df_yc_2 <- yc_mget(first_date,
    last_date,
    by = 5
  )

  test_df(df_yc_2)

  expect_identical(df_yc_1, df_yc_2)
})

test_that("Test of yc_get function", {
  refdate <- bizdays::offset(Sys.Date(), -30, "Brazil/ANBIMA")

  # first call (no cache)
  df_yc_1 <- yc_get(refdate, do_cache = FALSE)

  test_df(df_yc_1)

  # first call (with cache)
  df_yc_2 <- yc_get(refdate)

  test_df(df_yc_2)

  expect_identical(df_yc_1, df_yc_2)
})

test_that("Test of yc_ipca_mget function", {
  first_date <- Sys.Date() - 10
  last_date <- Sys.Date()

  # first call (no cache)
  df_yc_1 <- yc_ipca_mget(first_date,
    last_date,
    by = 2,
    do_cache = FALSE
  )

  test_df(df_yc_1)

  # first call (with cache)
  df_yc_2 <- yc_ipca_mget(first_date,
    last_date,
    by = 2
  )

  test_df(df_yc_2)

  expect_identical(df_yc_1, df_yc_2)
})

test_that("Test of yc_ipca_get function", {
  refdate <- bizdays::offset(Sys.Date(), -30, "Brazil/ANBIMA")

  # first call (no cache)
  df_yc_1 <- yc_ipca_get(refdate, do_cache = FALSE)

  test_df(df_yc_1)

  # first call (with cache)
  df_yc_2 <- yc_ipca_get(refdate)

  test_df(df_yc_2)

  expect_identical(df_yc_1, df_yc_2)
})

test_that("Test of yc_usd_mget function", {
  first_date <- Sys.Date() - 10
  last_date <- Sys.Date()

  # first call (no cache)
  df_yc_1 <- yc_usd_mget(first_date,
    last_date,
    by = 2,
    do_cache = FALSE
  )

  test_df(df_yc_1)

  # first call (with cache)
  df_yc_2 <- yc_usd_mget(first_date,
    last_date,
    by = 2
  )

  test_df(df_yc_2)

  expect_identical(df_yc_1, df_yc_2)
})

test_that("Test of yc_usd_get function", {
  refdate <- bizdays::offset(Sys.Date(), -30, "Brazil/ANBIMA")

  # first call (no cache)
  df_yc_1 <- yc_usd_get(refdate, do_cache = FALSE)

  test_df(df_yc_1)

  # first call (with cache)
  df_yc_2 <- yc_usd_get(refdate)

  test_df(df_yc_2)

  expect_identical(df_yc_1, df_yc_2)
})

test_that("Test of yc_superset function", {
  refdate <- bizdays::offset(Sys.Date(), -30, "Brazil/ANBIMA")

  fut <- futures_get(refdate)
  yc <- yc_get(refdate)
  df <- yc_superset(yc, fut)
  expect_true(exists("symbol", df))
  expect_true(anyNA(df$symbol))
  yc <- yc_usd_get(refdate)
  df <- yc_usd_superset(yc, fut)
  expect_true(exists("symbol", df))
  expect_true(anyNA(df$symbol))
  yc <- yc_ipca_get(refdate)
  df <- yc_ipca_superset(yc, fut)
  expect_true(exists("symbol", df))
  expect_true(anyNA(df$symbol))
})