# Loaded automatically before every test file by testthat

# Reproducible seed for all tests
set.seed(2025)

# Helper: balanced RCBD data frame
make_rcbd <- function(t = 4, b = 3, mean = 4.5, sd = 0.5, seed = 1) {
  set.seed(seed)
  df <- expand.grid(
    treatment = paste0("T", seq_len(t)),
    block     = paste0("B", seq_len(b)),
    KEEP.OUT.ATTRS = FALSE,
    stringsAsFactors = FALSE
  )
  df$yield <- rnorm(nrow(df), mean, sd)
  df
}

# Helper: numeric vector with a known high outlier
make_yield_outlier <- function(n = 20, mean = 4.5, sd = 0.5,
                               outlier = 12.0, seed = 42) {
  set.seed(seed)
  c(rnorm(n, mean, sd), outlier)
}