tests/testthat/test-survey.R

In retroharmonize: Ex Post Survey Data Harmonization

example_survey <- survey( 
  object =data.frame ( 
    rowid = 1:6,
    observations = runif(6)), 
  id = 'example', 
  filename = "no_file"
)

test_that("correct casting", {
  expect_true(inherits(example_survey, "survey"))
  expect_true(is.survey(example_survey))
  expect_equal(attr(example_survey, "filename"), "no_file")
})