tests/testthat/test_utils.R

context("Generics")

test_that("print summaries mandelbrot objects", {
  mb <- mandelbrot()
  expect_output(print(mb), "Mandelbrot")
  expect_output(print(mb), nrow(mb))
})

Try the mandelbrot package in your browser

Any scripts or data that you put into this service are public.

mandelbrot documentation built on May 2, 2019, 5:15 a.m.