tests/testthat/test-get_ces.R

In ces: Access to Canadian Election Study Data

test_that("get_ces validates inputs correctly", {
  # Test that invalid year throws error
  expect_error(get_ces("9999"), "Invalid year")
  
  # Test that invalid format throws error
  expect_error(get_ces("2019", format = "invalid"), "Invalid format")
  
  # Test that invalid language throws error
  expect_error(get_ces("2019", language = "invalid"), "Invalid language")
  
  # Test that invalid variant throws error
  expect_error(get_ces("2019", variant = "invalid"), "Invalid variant")
  
  # Test that invalid variant for specific year throws error
  expect_error(get_ces("1965", variant = "phone"), "Invalid variant")
})

# To test actual data retrieval, we need a mock
# This will avoid actual downloads during testing
test_that("get_ces handles data retrieval properly", {
  skip("Skipping download test")
  
  # This test would require downloading real data or mocking
  # We'll skip it for now, but it could be implemented later
  # when we have a proper test environment
  
  # Example of what to test:
  # - Data retrieval works for different years
  # - Different format options work correctly
  # - Cache mechanism works as expected
  # - Encoding is handled correctly
})