tests/testthat/test-use-logo.R

context("use_logo")

test_that("use_logo() doesn't error", {
  skip_if_not_installed("magick")
  pkg <- scoped_temporary_package()
  img <- magick::image_write(magick::image_read("logo:"), "logo.png")
  on.exit(file_delete("logo.png"))

  expect_error_free(("logo.png"))
})

Try the usethis package in your browser

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

usethis documentation built on July 4, 2019, 5:05 p.m.