# Tests for batch processing

test_that("calc_batch processes multiple farms", {
  farms <- data.frame(
    FarmID = c("A", "B"),
    Milk_litres = c(500000, 700000),
    Cows_milking = c(100, 140),
    Area_total_ha = c(120, 180),
    stringsAsFactors = FALSE
  )

  result <- calc_batch(
    data = farms,
    tier = 1,
    boundaries = set_system_boundaries("farm_gate")
  )

  expect_s3_class(result, "cf_batch_complete")
  expect_equal(result$summary$n_farms_processed, 2)
  expect_equal(length(result$farm_results), 2)
})

test_that("calc_batch validates tier input", {
  farms <- data.frame(FarmID = "A", Milk_litres = 500000)

  expect_error(calc_batch(data = farms, tier = 3))
  expect_error(calc_batch(data = data.frame()))
})

test_that("calc_batch handles errors gracefully", {
  farms <- data.frame(
    FarmID = c("Good", "Bad"),
    Milk_litres = c(500000, -100),
    Cows_milking = c(100, 50),
    stringsAsFactors = FALSE
  )

  result <- suppressMessages(calc_batch(data = farms, tier = 1))

  expect_equal(result$summary$n_farms_successful, 1)
  expect_equal(result$summary$n_farms_with_errors, 1)
})