diff --git a/R/covr.R b/R/covr.R
index 7d6499fa..7510db65 100644
--- a/R/covr.R
+++ b/R/covr.R
@@ -453,7 +453,7 @@ package_coverage <- function(path = ".",
         "--with-keep.parse.data",
         "--no-staged-install",
         "--no-multiarch",
-        pkg$path
+        shQuote(pkg$path)
       )
 
       name <- if (.Platform$OS.type == "windows") "R.exe" else "R"
diff --git a/tests/testthat/test-record_tests.R b/tests/testthat/test-record_tests.R
index c7c1bd83..712f4e70 100644
--- a/tests/testthat/test-record_tests.R
+++ b/tests/testthat/test-record_tests.R
@@ -194,7 +194,7 @@ test_that("covr.record_tests: safely handles extremely large calls", {
     res <- system2(file.path(R.home("bin"), "R"), list("-q", "-s", "--vanilla", "-f", r_script), stdout = TRUE, stderr = TRUE)
   })
 
-  if (attr(res, "status") == 0L) {
+  if (identical(attr(res, "status"), 0L)) {
     warning(paste0(collapse = "\n", strwrap(paste0(
       "Looks like R was updated and the work-around for Rds ",
       "deserialization segfaults can now be made to apply conditionally to only ",