tests/testthat/test-get_groups.R

In unhcr-americas/surveyDesigner: A Shiny App to help in the survey integration process

# WARNING - Generated by {fusen} from /dev/flat_r6_referential.Rmd: do not edit by hand

test_that("utils_xlsform works", {
  expect_true(inherits(get_groups, "function")) 
  
ref <- Referential$new(
  path = system.file("SurveyDesigner_Referential.xlsx", package = "surveyDesigner") 
)

result <- get_groups(ref$data$survey)

expect_named(result[[1]], c("data", "information"))
expect_type(result, "list")


expect_true(inherits(get_choices_for_question, "function"))
get_choices <- get_choices_for_question(ref$data$choices, "pop_groups")

expect_type(get_choices, "list")

})