tests/testthat/test-get_sp500.R

test_that("get_sp500 returns something", {

  tickers <- rfinance::get_sp500()
  testthat::expect_true(is.character(tickers))
  testthat::expect_true(length(tickers) > 0)
})
aljrico/rfinance documentation built on March 29, 2024, 2:31 a.m.