test_that("summary", {
  testthat::skip_on_cran()

  SW({
  res <- fuzz("list", list(NA, c(1, 2, 3)))
  expect_message(sum <- summary(res),
                 "Fuzzed 1 function on 2 inputs:")
  expect_s3_class(sum,
                  "data.frame")
  expect_named(sum,
               c("fun", "what", "res", "msg"))
  expect_equal(sum$what,
               c("NA", "c(1, 2, 3)"))
  })
})

test_that("print", {
  testthat::skip_on_cran()

  SW({
  expect_output(expect_message(
      print(fuzz("list", list(NA, c(1, 2, 3)))),
      "You didn't get caught by the fuzz!"),
      "OK 2")
  expect_output(expect_message(
      print(fuzz("ls", list(NA, c(1, 2, 3)))),
      "CAUGHT BY THE FUZZ!"),
      "FAIL 2")
  })
})