Fix some test cases

R/rc.R

@@ -210,8 +210,8 @@ guess_email <- function(path = ".", message = TRUE) {
         wrap = TRUE,
         "Using maintainer email address {.val {maint}}."
       )
-      return(maint)
     }
+    return(maint)
   }
 
   guess <- email_address()

tests/testthat/_snaps/rc.md

@@ -209,7 +209,7 @@
     Code
       guess_email(message = FALSE)
     Output
-      [1] "csardi.gabor@gmail.com"
+      [1] "user@example.com"
 
 ---
 

tests/testthat/helpers.R

@@ -1,4 +1,5 @@
 http_app <- function(wd = getwd()) {
+  `%||%` <- function(l, r) if (is.null(l)) r else l
   force(test_dir)
   app <- webfakes::httpbin_app()
 

tests/testthat/test-rc.R

@@ -92,6 +92,7 @@ test_that("rc_submit", {
   })
 
   # need to build if directory
+  withr::local_options(useFancyQuotes = FALSE)
   tmp <- tempfile()
   on.exit(unlink(tmp, recursive = TRUE), add = TRUE)
   dir.create(tmp)