tests/testthat/test-count_donations.R

test_that("counting donations works", {
  x <- count_donations(donations_test_data)

  expect_equal(nrow(x), 8)
  expect_named(x, c("sector", "donations"))
})
malcolmbarrett/avalanchr documentation built on Jan. 26, 2020, 12:59 a.m.