tests/testthat/test_progress_reports.R

In katilingban/scalingupnutrition: An Interface to the Scaling Up Nutrition (SUN) Movement Datasets

# tests for progress_reports function
suppressPackageStartupMessages(library(dplyr))

test_that("tidy frame for progress reports is right", {
  d <- progress_reports() %>%
    group_by(year) %>%
    summarise(total_lines = n())
  expect_equal(nrow(d), 7)
  expect_equal(ncol(d), 2)
})