tests/testthat/test-nse-ad.R

In nse2r: Fetch Data from 'National Stock Exchange (India)'

context("advances-declines")

httptest::with_mock_api({
  test_that("output from nse_advances_declines is as expected", {
    
    testthat::skip_on_cran()
    testthat::skip_on_os("windows")
    testthat::skip_on_os("mac")
    
    iquotes <- nse_advances_declines()
    
    expect_equal(names(iquotes), c("index_name", "advances", "declines", "unchanged"))
  })
})