tests/testthat/test-giving-chunk.R

context("giving chunk")
library(discoveryengine)

test_that("giving is householded in giving chunk", {
  wealthy = has_capacity(1)

  # not the best way to do this
  qry <- append(wealthy, giving)$template$query[[1]]
  expect_true(grepl("sf_hh_corp_summary_mv", qry))
  expect_false(grepl("sf_entity_summary_mv", qry))
})
cwolfsonseeley/discoappend documentation built on March 17, 2022, 8:36 p.m.