Deal w/ failing test on rhub and winbuilder

Author: jennybc

tests/testthat/helper.R

@@ -51,6 +51,18 @@ skip_if_not_ci <- function() {
   skip("Not on Travis or Appveyor")
 }
 
+skip_if_no_git_config <- function() {
+  cfg <- git2r::config()
+  user_name <- cfg$local$`user.name` %||% cfg$global$`user.name`
+  user_email <- cfg$local$`user.email` %||% cfg$global$`user.email`
+  user_name_exists <- !is.null(user_name)
+  user_email_exists <- !is.null(user_email)
+  if (user_name_exists && user_email_exists) {
+    return(invisible(TRUE))
+  }
+  skip("No Git user configured")
+}
+
 expect_error_free <- function(...) {
   expect_error(..., regexp = NA)
 }

tests/testthat/test-use-readme.R

@@ -11,6 +11,8 @@ test_that("error if try to overwrite existing file", {
 test_that("sets up git pre-commit hook iff pkg uses git", {
   # git2r::git2r::discover_repository() not working on R 3.1 (Travis)
   skip_if(getRversion() < 3.2)
+  skip_if_no_git_config()
+
   scoped_temporary_package()
   capture_output(use_readme_rmd(open = FALSE))
   expect_false(file.exists(proj_path(".git", "hooks", "pre-commit")))