test_that("vowr_profile returns expected dimensions", {

  # 1. DEFINE the dummy data INSIDE the test block
  dummy_data <- data.frame(
    provider_org_code = c("A", "A", "B"),
    provider_org_name = c("Org A", "Org A", "Org B"),
    mean_wait_weeks = c(10, 12, 18),
    backlog_total = c(100, 200, 300)
  )

  # 2. CALL your function using that dummy_data
  result <- vowr_profile(dummy_data)

  # 3. CHECK expectations
  expect_equal(nrow(result), 2)
  expect_equal(ncol(result), 7)
})
