test_that("SLOS generates expected outputs", {
  data(SampledData)
  mock_data <- sampled_data
  
  result <- suppressWarnings(SLOS::SLOS(mock_data))
  
  expect_is(result, "list")
  expect_named(result, c("plot_SLOS_obs_prev", "funnel_plot"))
  expect_is(result$plot_SLOS_obs_prev, "ggplot")
  expect_is(result$funnel_plot, "ggplot")
  expect_true(exists("df_unit_slos", envir = .GlobalEnv))
})

test_that("SLOS handles empty or invalid data", {
  expect_error(SLOS(data.frame()), "Error: Input data must contain at least one row.")
  
  invalid_data <- data.frame(InvalidColumn = c(1, 2, 3))
  expect_error(SLOS(invalid_data), "Error: Missing required columns: UnitCode, UnitLengthStay_trunc")
})