tests/testthat/test-report.htest-kruskal.R

In report: Automated Reporting of Results and Statistical Models

test_that("report.htest-kruskal report", {
  x <- kruskal.test(airquality$Ozone ~ as.factor(airquality$Month))

  set.seed(100)
  expect_snapshot(
    variant = "windows",
    report(x, verbose = FALSE)
  )
})