test_that("get_oecd_health() rejects invalid country codes", {
  expect_error(get_oecd_health("ZZZ"), "not valid OECD member")
})

test_that("get_oecd_health() returns correct structure", {
  skip_on_cran()
  skip_if_offline()

  df <- get_oecd_health(c("AUS", "GBR"), start_year = 2010)

  expect_s3_class(df, "data.frame")
  expect_named(df, c("country", "country_name", "year", "series", "value", "unit"))
  expect_type(df$country,      "character")
  expect_type(df$country_name, "character")
  expect_type(df$year,         "integer")
  expect_type(df$series,       "character")
  expect_type(df$value,        "double")
  expect_type(df$unit,         "character")
})

test_that("get_oecd_health() returns plausible values", {
  skip_on_cran()
  skip_if_offline()

  df <- get_oecd_health("AUS", start_year = 2015)
  expect_true(nrow(df) > 0)
  expect_true(all(df$value > 0))
  expect_true(all(df$series == "HEALTH_EXPENDITURE"))
  expect_true(all(df$unit == "% of GDP"))
  # Australia spends roughly 9-11% of GDP on health
  expect_true(all(df$value > 5 & df$value < 25))
})