tests/testthat/test-get_pm_cash_flow_daily.R

In AZASRS/AZASRS: ASRS Database R API

context("test-get_pm_cash_flow_daily")

test_that("get_pm_cash_flow_daily() returns matching tibbles", {
  cf <- get_pm_cash_flow_daily()
  expected_names <- c(
    "pm_fund_info_id", "effective_date", "cash_flow", "contributions",
    "distributions", "pm_fund_id", "pm_fund_description", "pm_fund_common_name",
    "vintage", "commit", "unfunded", "legacy", "specialist", "invest_end",
    "term_end", "extension", "ext_time", "ext_used", "fee_cat", "consultant",
    "adv_board", "obsvr", "fund_size_m", "closed", "pm_fund_category",
    "pm_fund_category_description", "pm_fund_portfolio", "pm_fund_sponsor",
    "pm_fund_city", "pm_fund_sector"
  )
  expect_equal(colnames(cf), expected_names)
  expect_equal(as.character(lapply(cf, class)), c("integer", "Date", "numeric", "numeric", "numeric", "character", "character", "character", "integer", "integer", "integer", "character", "character", "Date", "Date", "numeric", "numeric", "numeric", "character", "character", "logical", "logical", "numeric", "character", "character", "character", "character", "character", "character", "character"))

  expect_true(dplyr::count(cf) %>% dplyr::pull(n) > 11159)
})