Add covr helper (#1635)

* Add test_coverage helper

Fixes #1628

NAMESPACE

@@ -131,6 +131,7 @@ export(submit_cran)
 export(system_check)
 export(system_output)
 export(test)
+export(test_coverage)
 export(uninstall)
 export(unload)
 export(update_packages)

NEWS.md

@@ -1,5 +1,8 @@
 # devtools 1.13.3.9000
 
+* New `test_coverage()` provides helper to compute test coverage using covr
+  (#1628).
+
 * `build_win()` has been renamed to `check_win_release()`, `check_win_devel()`,
   `check_win_oldrelease()` (#1598).
 

R/test.r

@@ -1,19 +1,13 @@
 #' Execute all \pkg{test_that} tests in a package.
 #'
-#' Tests are assumed to be located in either the \code{inst/tests/} or
-#' \code{tests/testthat} directory (the latter is recommended).
-#' See \code{\link[testthat]{test_dir}} for the naming convention of test
-#' scripts within one of those directories and
-#' \code{\link[testthat]{test_check}} for the folder structure conventions.
-#'
-#' If no testing infrastructure is present
-#' (detected by the \code{uses_testthat} function), you'll be asked if you want
-#' devtools to create it for you (in interactive sessions only). See
-#' \code{\link{use_test}} for more details.
+#' `test()` is a shortcut for [testthat::test_dir()].
+#' `test_coverage()` is a shortcut for [covr::package_coverage()].
 #'
+#' @md
 #' @param pkg package description, can be path or package name. See
-#'   \code{\link{as.package}} for more information
-#' @param ... additional arguments passed to \code{\link[testthat]{test_dir}}
+#'   [as.package()] for more information
+#' @param ... additional arguments passed to [testthat::test_dir()] and
+#'   [covr::package_coverage()]
 #' @inheritParams testthat::test_dir
 #' @inheritParams run_examples
 #' @export
@@ -68,6 +62,19 @@ test <- function(pkg = ".", filter = NULL, ...) {
     do.call(testthat::test_dir, testthat_args))
 }
 
+#' @export
+#' @rdname test
+test_coverage <- function(pkg = ".", ...) {
+  pkg <- as.package(pkg)
+
+  check_suggested("covr")
+
+  coverage <- covr::package_coverage(pkg$path, ...)
+  covr::report(coverage)
+
+  invisible(coverage)
+}
+
 find_test_dir <- function(path) {
   testthat <- file.path(path, "tests", "testthat")
   if (dir.exists(testthat)) return(testthat)