fix for additional test code via package_coverage(..., code = .) (#481)

* fix running additional test code: write 'commands' line-by-line

* Add note to news

Co-authored-by: Jim Hester <[email protected]>

Author: bastistician

NEWS.md

@@ -1,5 +1,7 @@
 # covr (development version)
 
+* `package_coverage(code = )` now accepts character vectors of length greater than 1 (@bastistician, #481)
+
 * `report()` now provides a more detailed error message if the `DT` and `htmltools` dependencies are not installed (#500).
 
 * Added `covr.record_tests` option. When `TRUE`, this enables the recording of

R/covr.R

@@ -734,9 +734,9 @@ run_vignettes <- function(pkg, lib) {
 run_commands <- function(pkg, lib, commands) {
   outfile <- file.path(lib, paste0(pkg$package, "-commands.Rout"))
   failfile <- paste(outfile, "fail", sep = "." )
-  cat(
-    "library('", pkg$package, "')\n",
-    commands, "\n", file = outfile, sep = "")
+  writeLines(c(
+    paste0("library('", pkg$package, "')"),
+    commands), con = outfile)
   cmd <- paste(shQuote(file.path(R.home("bin"), "R")),
                "CMD BATCH --vanilla --no-timing",
                shQuote(outfile), shQuote(failfile))

tests/testthat/test-package_coverage.R

@@ -29,3 +29,9 @@ test_that("package_coverage with type == 'none' runs no test code", {
 
   expect_equal(percent_coverage(cov), 0.00)
 })
+
+test_that("package_coverage runs additional test code", {
+  cov <- package_coverage("TestS4", type = "none", code = c("a(1)", "a(2)"))
+
+  expect_gt(percent_coverage(cov), 0.00)
+})