tests/testthat/test-summarize-survey.R

In heathermkrause/WWC: Weighing the Wisdom of the Crowd

context("Summarizing a weighted survey")

suppressPackageStartupMessages(library(dplyr))
data(tinysurvey)

test_that("can summarize a survey", {
        sm <- weight_wwc(tinysurvey, 
                         sex, raceethnicity) %>% 
                summarize_survey(response)
        expect_is(sm, "tbl_df")
        expect_equal(length(sm), 4)
        expect_true(all(sm$result == c("Raw", "Weighted")))
        expect_is(sm$value, "numeric")
        expect_is(sm$se, "numeric")
        expect_true(sm$value[1] < sm$value[2])
})