tests/testthat/test-get_financials.R

In fdic: Interface to 'BankFind Suite API'

test_that("get_financials() returns a tibble", {
  skip_if(no_creds_available())
  result <- get_financials(filters = "STALP:ND")
  expect_s3_class(result, "tbl_df")
  expect_gt(nrow(result), 0)
})

test_that("get_financials() respects the fields argument", {
  skip_if(no_creds_available())
  fields <- c("CERT", "REPDTE", "ASSET", "NETINC")
  result <- get_financials(filters = "STALP:ND", fields = fields)
  expect_setequal(names(result), c("ID", fields))
})

test_that("get_financials() errors when limit > 500 and fields > 250", {
  expect_snapshot(
    error = TRUE,
    get_financials(
      fields = head(fdic_financials$field, 251),
      limit = 501
    )
  )
})

test_that("get_financials() allows limit = 500 when fields > 250", {
  # Mock `get_fdic()` so we can test the constraint boundary without credentials
  # or a network call. If the constraint fires, it aborts before `get_fdic()` is
  # reached, so `expect_no_error()` proves the constraint correctly did not
  # fire.
  local_mocked_bindings(get_fdic = function(...) tibble::tibble())
  expect_no_error(
    get_financials(
      fields = head(fdic_financials$field, 251),
      limit = 500
    )
  )
})

test_that("get_financials() allows limit > 500 when fields <= 250", {
  # Same mocking approach as above — constraint only applies when BOTH
  # fields > 250 AND limit > 500, so either condition alone should pass.
  local_mocked_bindings(get_fdic = function(...) tibble::tibble())
  expect_no_error(
    get_financials(
      fields = head(fdic_financials$field, 250),
      limit = 501
    )
  )
})