tests/testthat/test-index-tq_index.R

In tidyquant: Tidy Quantitative Financial Analysis

context("Testing tq_index()")

library(tidyquant)

#### Setup
options <- tq_index_options()

#### Tests

test_that("Test returns list of 5 options", {
    expect_equal(length(options), 5)
})

# Long running script: Collecting all stock lists
test_that("Test all stock index options to ensure no issues during fetch.", {

    skip_on_cran()
    for (i in seq_along(options)) {
        tq_index(options[[i]]) %>%
            expect_is("tbl") %>%
            nrow() %>%
            expect_gt(3)
    }

})

test_that("Test returns warning on invalid x input.", {
    expect_warning(tq_index("XYZ"))
})

test_that("Test returns error on invalid x input.", {
    expect_warning(tq_index("XYZ", use_fallback = TRUE))
})

test_that("Test returns message on use_fallback = TRUE.", {
    expect_message(tq_index("SP500", use_fallback = TRUE))
})

test_that("Test returns tibble on use_fallback = TRUE.", {
    for (i in seq_along(options)) {
        tq_index(options[[i]], use_fallback = TRUE) %>%
            expect_is("tbl") %>%
            nrow() %>%
            expect_gt(3)
    }
})