tests/testthat/test-api-key.R

In ClaytonJY/tidyquandl: A tidy interface to financial data via Quandl.com

context("Test setting and getting API keys")

describe("quandl_key_get()", {

  it("errors when no key is set", {
    expect_error(tidyquandl:::quandl_key_get())
  })
})

describe("quandl_key_set()", {

  it("returns set value, invisbly", {
    expect_identical(quandl_key_set("foobar"), "foobar")
  })

  it("validates input", {
    expect_error(quandl_key_set(1))
  })

  it("sets what is passed in", {
    expect_identical(tidyquandl:::quandl_key_get(), "foobar")
  })

  it("can set key from environment variable", {
    quandl_key_set()
    expect_identical(tidyquandl:::quandl_key_get(), Sys.getenv("QUANDL_API_KEY"))
  })

  it("errors if env var is empty", {
    old <- Sys.getenv("QUANDL_API_KEY")
    Sys.setenv(QUANDL_API_KEY = "")
    on.exit(Sys.setenv(QUANDL_API_KEY = old))
    expect_error(quandl_key_set())
  })

  it("is compatible with Quandl package", {
    expect_identical(tidyquandl:::quandl_key_get(), Quandl::Quandl.api_key())
  })
})