tests/testthat/test-database.r

In NasdaqDataLink: API Wrapper for Nasdaq Data Link

source("test-helpers.r")

NasdaqDataLink.api_key('test_key')
NasdaqDataLink.api_version('2015-04-09')

test_that("download database url is constructed correctly", {
  expected <- "https://data.nasdaq.com/api/v3/databases/NSE/data?api_key=test_key&api_version=2015-04-09&download_type=partial"
  expect_equal(NasdaqDataLink.database.bulk_download_url("NSE", download_type = "partial"), expected)
})

with_mock(
  `NasdaqDataLink:::nasdaq_data_link.api.download_file` = function(path, filename, ...) {
    test_that("correct arguments are passed to api layer", {
      params <- list(...)
      expect_equal(params$download_type, "partial")
      expect_equal(path, "databases/NSE/data")
      expect_equal(filename, "folder/exists/NSE.zip")
    })
  },
  NasdaqDataLink.database.bulk_download_to_file("NSE", "folder/exists/NSE.zip", download_type = "partial")
)

reset_config()