tests/testthat/test_input.R

In mabafaba/kobostandards:

library(testthat)
context("check_input() overall")


issues<-check_input(data = data,
                    questions = questions,
                    choices = choices,
                    analysisplan = analysisplan,
                    samplingframe = samplingframe)


testthat::test_that("check_input: issue format standardised",{
  expect_true(output_of_check_is_standardised(issues))

})

testthat::test_that("check_input_questionnaire: no issues on good input",{
  expect_no_issues(list(check_input),data = data,
                   questions = questions,
                   choices = choices,
                   analysisplan = analysisplan,
                   samplingframe = samplingframe,label = "complete check_input"
  )
})


testthat::test_that("check_input: never throws an error",{
  # expect no error [ achieved with "expect_error({},NA)" ]:
  expect_error({kobostandards::check_input(NULL,NULL)},NA,NULL)
  expect_error({kobostandards::check_input(NA,NULL)},NA)
  expect_error({kobostandards::check_input(NA,NA)},NA,NA)
  expect_error({kobostandards::check_input(c(1:10),letters[1:10])},NA)
  expect_error({kobostandards::check_input(data.frame(x=runif(100)),data.frame(x=runif(100)),data.frame(x=runif(300)))},NA)

})