tests/testthat/test-get_account.R

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

# Unit tests for get_account function

# Test 1: Invalid class type for tokens throws error
test_that("invalid class type for tokens throws error", {
  expect_error(get_account(1,
                           account_number = "test"),
               "Tokens must be a list, account number must be a string, and fields must be NULL, a string, or character vector.") # nolint
})
# Test 2: Invalid class type for fields throws error
test_that("invalid class type for fields throws error", {
  expect_error(get_account(list(),
                           account_number = "test",
                           fields = 1),
               "Tokens must be a list, account number must be a string, and fields must be NULL, a string, or character vector.") # nolint
})
# Test 3: Invalid class type for account_number throws error
test_that("invalid class type for account_number throws error", {
  expect_error(get_account(list(),
                           account_number = "error",
                           fields = 1),
               "Tokens must be a list, account number must be a string, and fields must be NULL, a string, or character vector.") # nolint
})
# Test 4: Bad API call throws error
test_that("bad API call throws error", {
  expect_error(get_account(list(),
                           account_number = "test",
                           fields = "test"),
               "Error during API call - please check token input object and ensure access token is refreshed in addition to other arguments being specified correctly.") # nolint
})