tests/testthat/test-get_instruments_cusip.R

In charlesschwabapi: Wrapper Functions Around 'Charles Schwab Individual Trader API'

# Unit tests for get_instruments_cusip function

# Test 1: Invalid class type for tokens throws error
test_that("invalid class type for tokens throws error", {
  expect_error(get_instruments_cusip(1,
                                     cusip_id = "test"),
               "Tokens parameter must be a list and cusip must be a string.") # nolint
})
# Test 2: Invalid class type for cusip throws error
test_that("invalid class type for cusip throws error", {
  expect_error(get_instruments_cusip(list(),
                                     cusip_id = 1),
               "Tokens parameter must be a list and cusip must be a string.") # nolint
})
# Test 3: Bad API call throws error
test_that("bad API call throws error", {
  expect_error(get_instruments_cusip(list(),
                                     cusip_id = "test"),
               "Error during API call - please check cusip & token input object, and ensure access token is refreshed.") # nolint
})