tests/testthat/test-addInfo.R

test_that("addInfo votes complete", {
  expect_equal(nrow(addInfo(examplevotes)$voteList) == nrow(examplevotes$voteList), TRUE)
})

test_that("addInfo questions complete", {
  expect_equal(nrow(addInfo(examplequestions)$questionerList) == nrow(examplequestions$questionerList), TRUE)
})
louwerse/dutchparl documentation built on Aug. 14, 2021, 3:02 a.m.