test_that("can control appearance of dots", { expect_snapshot_reporter(SummaryReporter$new( show_praise = FALSE, omit_dots = FALSE )) expect_snapshot_reporter(SummaryReporter$new( show_praise = FALSE, omit_dots = TRUE )) }) test_that("can control maximum reports", { expect_snapshot_reporter(SummaryReporter$new( show_praise = FALSE, max_reports = 2 )) })