tests/testthat/test-nse-index.R

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

context("check output related to index")

httptest::with_mock_api({
  test_that("output from nse_index_quote is as expected", {
    
    testthat::skip_on_cran()
    testthat::skip_on_os("windows")
    testthat::skip_on_os("mac")

    iquotes <- nse_index_quote()
    
    expect_equal(names(iquotes), c("index_name", "last_traded_price", "change",
                        "percent_change"))
  })
})

httptest::with_mock_api({
  test_that("output from nse_index_list is as expected", {
    
    testthat::skip_on_cran()
    testthat::skip_on_os("windows")
    testthat::skip_on_os("mac")

    iquotes <- nse_index_list()
    
    expect_equal(names(iquotes), c("index_name"))
  })
})


httptest::with_mock_api({
  test_that("output from nse_index_valid is as expected", {
    
    testthat::skip_on_cran()
    testthat::skip_on_os("windows")
    testthat::skip_on_os("mac")

    expect_true(nse_index_valid("nifty auto"))
    
    expect_false(nse_index_valid("nifty cps"))
  })
})