Error: Not enough observations to calculate a moving average of size n.

# Load the package being tested (or use devtools::load_all())
test_data <- data.frame(date = seq.Date(from = as.Date("2023-01-01"), by = "day", length.out = 10),
result <- calculate_sma(test_data, n = 5)
test_data_short <- data.frame(value = 1:3)
"Not enough observations to calculate moving average of size n.")
expect_error(calculate_sma(list(value = 1:10), n = 5),
"'data' must be a data frame with a 'value' column.")

"Not enough observations to calculate moving average of size n."
"'data' must be a data frame with a 'value' column."