suppressPackageStartupMessages({ library(testthat) })
source(file.path('R','project','calculations.R'), local = TRUE)

test_that('compute_metrics calcule correctement la moyenne', {
  df <- data.frame(value = c(1,2,3,4))
  res <- compute_metrics(df)
  expect_equal(res$mean, 2.5)
  expect_equal(res$n, 4)
})