Minor misc cleanups in tests and README

Author: olivroy

R/codecov.R

@@ -178,7 +178,7 @@ codecov <- function(...,
     codecov_query <- list(service = "github-actions",
                           branch = branch,
                           build = github_run_id,
-                          build_url = utils::URLencode(sprintf("http://github.com/%s/actions/runs/%s", slug, github_run_id)),
+                          build_url = utils::URLencode(sprintf("https://github.com/%s/actions/runs/%s", slug, github_run_id)),
                           pr = pr,
                           slug = slug,
                           commit = commit %||% Sys.getenv("GITHUB_SHA"))

README.md

@@ -3,7 +3,7 @@
 <!-- badges: start -->
 [![R-CMD-check](https://github.com/r-lib/covr/actions/workflows/R-CMD-check.yaml/badge.svg)](https://github.com/r-lib/covr/actions/workflows/R-CMD-check.yaml)
 [![Codecov test coverage](https://codecov.io/gh/r-lib/covr/branch/master/graph/badge.svg)](https://app.codecov.io/gh/r-lib/covr?branch=master)
-[![CRAN version](http://www.r-pkg.org/badges/version/covr)](https://cran.r-project.org/package=covr)
+[![CRAN version](https://www.r-pkg.org/badges/version/covr)](https://cran.r-project.org/package=covr)
 <!-- badges: end -->
 
 Track test coverage for your R package and view reports locally or (optionally)

tests/testthat/test-S7.R

@@ -1,5 +1,5 @@
 test_that("S7 coverage is reported", {
-  local_edition(3)
+  skip_if_not_installed("S7")
   cov <- as.data.frame(package_coverage(test_path("TestS7")))
 
   expect_equal(cov$value, c(1, 1, 1, 2, 5, 0, 5, 0, 5, 1, 1, 2, 1, 1, 0))

tests/testthat/test-parallel.R

@@ -13,7 +13,7 @@ test_that("mcparallel with the fix", {
   skip_on_os("windows")
 
   # using auto detection
-  cov <- package_coverage("TestParallel", type = "test")
+  cov <- package_coverage(test_path("TestParallel"), type = "test")
   # only the non parallel code is covered
   expect_equal(percent_coverage(cov), 100)
 })

tests/testthat/test-print.R

@@ -13,7 +13,7 @@ test_that("format_percentage works as expected", {
 })
 
 test_that("print.coverage prints by = \"line\" by default", {
-  cov <- package_coverage("TestPrint")
+  cov <- package_coverage(test_path("TestPrint"))
 
   expect_message(print(cov, by = "expression"),
     rex::rex("R/TestPrint.R: ", anything, "66.67%"))
@@ -30,9 +30,6 @@ test_that("print.coverage prints by = \"line\" by default", {
 
   expect_message(print(cov),
     rex::rex("R/TestPrint.R: ", anything, "0.00%"))
-})
-test_that("print.coverage prints by = \"line\" by default", {
-  cov <- package_coverage("TestPrint")
 
   expect_message(print(cov, group = "functions"),
     rex::rex("test_me", anything, "0.00%"))

tests/testthat/test-report.R

@@ -12,7 +12,7 @@ skip_on_ci <- function() {
 
   #tmp <- tempfile()
   #set.seed(42)
-  #cov <- package_coverage("TestS4")
+  #cov <- package_coverage(test_path("TestS4"))
   ## Shiny uses its own seed which is not affected by set.seed, so we need to
   ## set that as well to have reproducibility
   #g <- shiny:::.globals

tests/testthat/test-summary.R

@@ -1,5 +1,5 @@
 test_that("Summary gives 50% coverage and two lines with zero coverage", {
-  cv <- package_coverage("TestSummary")
+  cv <- package_coverage(test_path("TestSummary"))
   expect_equal(percent_coverage(cv), 50)
   expect_equal(nrow(zero_coverage(cv)), 2)
 })

tests/testthat/test-utils.R

@@ -48,8 +48,6 @@ test_that("per_line removes blank lines and lines with only punctuation (#387)",
   expect_equal(line_cov[[1]]$coverage, c(NA, 0, 0, 2, NA, 1, NA, 1, NA, NA, NA, NA, NA, NA, NA, NA, NA))
 })
 
-context("split_on_line_directives")
-
 test_that("split_on_line_directives returns NULL for input without directive (#588)", {
   expect_identical(
     split_on_line_directives(NULL),