tests/testthat/test-get_authentication_tokens.R

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

# Unit tests for get_authentication function

# Test 1: Invalid class type for app_key throws error
test_that("invalid class type for app_key throws error", {
  expect_error(get_authentication_tokens(app_key = 1, redirect_uri = "test", app_secret = "test"), # nolint
               "app_key, redirect_uri, app_secret, and token_save_path must all be strings.") # nolint
})
# Test 2: Invalid class type for redirect_uri throws error
test_that("invalid class type for redirect_uri throws error", {
  expect_error(get_authentication_tokens(app_key = "test", redirect_uri = 1, app_secret = "test"), # nolint
               "app_key, redirect_uri, app_secret, and token_save_path must all be strings.") # nolint
})
# Test 3: Invalid class type for app_secret throws error
test_that("invalid class type for app_secret throws error", {
  expect_error(get_authentication_tokens(app_key = "test", redirect_uri = "test", app_secret = TRUE), # nolint
               "app_key, redirect_uri, app_secret, and token_save_path must all be strings.") # nolint
})
# Test 4: Invalid class type for token_save_path throws error
test_that("invalid class type for app_secret throws error", {
  expect_error(get_authentication_tokens(app_key = "test", redirect_uri = "test", app_secret = "test", token_save_path = TRUE), # nolint
               "app_key, redirect_uri, app_secret, and token_save_path must all be strings.") # nolint
})