tests/testthat/test-get_source.R

test_that("Test: get_sparindex_source", {
  
  df <- get_sparindex_source()
  
  expect_true(c("Stock", "Ticker", "Skip", "iShares_url") %in% names(df) %>% all())
  
  str_ticker <- df %>% 
    dplyr::filter(grepl("C25", Stock)) %>% 
    dplyr::pull(Ticker)
  
  expect_equal(str_ticker, "SPIC25KL.CO")
  
})
kristian-bak/shinyStocks documentation built on Aug. 16, 2022, 4:15 a.m.