tests/testthat/test-pipe.R

In r-lib/usethis: Automate Package and Project Setup

test_that("use_pipe() requires a package", {
  create_local_project()
  expect_usethis_error(use_pipe(), "not an R package")
})

test_that("use_pipe(export = TRUE) adds promised file, Imports magrittr", {
  create_local_package()
  use_pipe(export = TRUE)
  expect_equal(desc::desc_get_field("Imports"), "magrittr")
  expect_proj_file("R", "utils-pipe.R")
})

test_that("use_pipe(export = FALSE) adds roxygen to package doc", {
  create_local_package()
  use_package_doc()
  use_pipe(export = FALSE)
  expect_equal(desc::desc_get_field("Imports"), "magrittr")

  expect_snapshot(roxygen_ns_show())
})