test_that("get_statistic", {
  skip_if(getRversion() < "4.5.0")
  data(penguins)
  fit <- aov(
    formula = body_mass ~ species,
    data = penguins
  )
  out <- get_statistic(fit)
  expect_equal(out$Statistic, 343.62628, tolerance = 1e-4)
})