tests/testthat/test-get-events-lists.R

test_that("get_events_lists() generates lists for github event actor and repo",{
  y <- create_events_df()
  expect_equal(ncol(y),4)
  expect_equal(nrow(y),30)
})
nganlyle/534_project documentation built on Feb. 12, 2020, 3:11 a.m.