test_that("read_od() works", {
  # Testing data file loading with read_od
  testing_object <- read_od(city = "São Paulo", year = 1997, harmonize = FALSE)
  expect_equal(is.data.frame(testing_object), TRUE)

  # Testing read_od error message
  expect_snapshot(read_od(city = "Manaus", year = 1977, harmonize = FALSE),
    error = TRUE
  )
  expect_snapshot(read_od(city = "São Paulo", year = 1978, harmonize = FALSE),
    error = TRUE
  )
  expect_snapshot(read_od(city = "São Paulo", year = 1977, harmonize = TRUE),
    error = TRUE
  )
})