tests/testthat/test-bootstrap.R

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

test_that("it should check rb3 folders", {
  reg <- rb3_registry$get_instance()
  expect_true(dir.exists(reg[["rb3_folder"]]))
  expect_true(dir.exists(reg[["raw_folder"]]))
  expect_true(dir.exists(reg[["db_folder"]]))
})

test_that("it should check rb3 sqlite connection", {
  reg <- rb3_registry$get_instance()
  expect_true("sqlite_db_connection" %in% names(reg))
  
  con <- meta_db_connection()
  expect_true(DBI::dbIsValid(con))
})