Add basic test

Author: hadley

tests/testthat/_snaps/reporter-slow.md

@@ -0,0 +1,21 @@
+# multiplication works
+
+    Code
+      show_all <- SlowReporter$new(min_time = 0)
+      with_reporter(show_all, n_tests(10))
+    Output
+      [-.--s] : run 1
+      [-.--s] : run 2
+      [-.--s] : run 3
+      [-.--s] : run 4
+      [-.--s] : run 5
+      [-.--s] : run 6
+      [-.--s] : run 7
+      [-.--s] : run 8
+      [-.--s] : run 9
+      [-.--s] : run 10
+      
+      == Summary =====================================================================
+      All tests:  -.--s
+      Slow tests: -.--s
+

tests/testthat/test-reporter-slow.R

@@ -0,0 +1,16 @@
+test_that("multiplication works", {
+  n_tests <- function(n) {
+    for (i in 1:n) {
+      test_that(paste0("run ", i), {
+        suceed()
+      })
+    }
+  }
+  expect_snapshot(
+    {
+      show_all <- SlowReporter$new(min_time = 0)
+      with_reporter(show_all, n_tests(10))
+    },
+    transform = \(x) gsub("\\d.\\d\\ds", "-.--s", x),
+  )
+})