Running 'test-all.R' [4s]
Running the tests in 'tests/test-all.R' failed.
Complete output:
  > library("testthat")
  > library("ghit")
  > test_check("ghit")
  -- 1. Error: Install a single package (@test_install.R#8)  ---------------------
  unknown certificate check failure
  1: expect_true(length(i1 <- suppressWarnings(install_github("leeper/testghit", lib = tmp, 
         verbose = TRUE))) == 1) at testthat/test_install.R:8
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: suppressWarnings(install_github("leeper/testghit", lib = tmp, verbose = TRUE))
  5: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
  6: install_github("leeper/testghit", lib = tmp, verbose = TRUE)
  7: sapply(unique(repo), function(x) {
         ghitmsg(verbose, message(sprintf("Parsing reponame for '%s'...", x)))
         p <- parse_reponame(repo = x)
         d <- checkout_github(p, host = host, credentials = credentials, verbose = verbose)
         on.exit(unlink(d), add = TRUE)
         ghitmsg(verbose, message(sprintf("Reading package metadata for '%s'...", x)))
         description <- read.dcf(file.path(d, "DESCRIPTION"))
         p$pkgname <- unname(description[1, "Package"])
         vers <- unname(description[1, "Version"])
         check_pkg_version(p, vers = vers, lib = if ("lib" %in% names(opts)) 
             c(.libPaths(), opts$lib)
         else .libPaths())
         if ("Suggests" %in% colnames(description)) {
             suggests <- clean_suggests(description)
             if (isTRUE(build_vignettes) && !is.null(suggests) && suggests != "") {
                 preinstall_suggests(suggests = suggests, p = p, type = type, repos = repos, 
                     dependencies = dependencies, verbose = verbose, ...)
             }
         }
         build_and_insert(p$pkgname, d, vers, build_args, verbose = verbose)
         return(p$pkgname)
     })
  8: lapply(X = X, FUN = FUN, ...)
  9: FUN(X[[i]], ...)
  10: checkout_github(p, host = host, credentials = credentials, verbose = verbose)
  11: git2r::fetch(gitrepo, name = "github", credentials = credentials)
  12: git2r::fetch(gitrepo, name = "github", credentials = credentials)
  
  -- 2. Error: Install a single package, removing old install (@test_install.R#14)
  unknown certificate check failure
  1: expect_true(length(i1 <- suppressWarnings(install_github("leeper/testghit", lib = tmp, 
         uninstall = TRUE, verbose = TRUE))) == 1) at testthat/test_install.R:14
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: suppressWarnings(install_github("leeper/testghit", lib = tmp, uninstall = TRUE, verbose = TRUE))
  5: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
  6: install_github("leeper/testghit", lib = tmp, uninstall = TRUE, verbose = TRUE)
  7: sapply(unique(repo), function(x) {
         ghitmsg(verbose, message(sprintf("Parsing reponame for '%s'...", x)))
         p <- parse_reponame(repo = x)
         d <- checkout_github(p, host = host, credentials = credentials, verbose = verbose)
         on.exit(unlink(d), add = TRUE)
         ghitmsg(verbose, message(sprintf("Reading package metadata for '%s'...", x)))
         description <- read.dcf(file.path(d, "DESCRIPTION"))
         p$pkgname <- unname(description[1, "Package"])
         vers <- unname(description[1, "Version"])
         check_pkg_version(p, vers = vers, lib = if ("lib" %in% names(opts)) 
             c(.libPaths(), opts$lib)
         else .libPaths())
         if ("Suggests" %in% colnames(description)) {
             suggests <- clean_suggests(description)
             if (isTRUE(build_vignettes) && !is.null(suggests) && suggests != "") {
                 preinstall_suggests(suggests = suggests, p = p, type = type, repos = repos, 
                     dependencies = dependencies, verbose = verbose, ...)
             }
         }
         build_and_insert(p$pkgname, d, vers, build_args, verbose = verbose)
         return(p$pkgname)
     })
  8: lapply(X = X, FUN = FUN, ...)
  9: FUN(X[[i]], ...)
  10: checkout_github(p, host = host, credentials = credentials, verbose = verbose)
  11: git2r::fetch(gitrepo, name = "github", credentials = credentials)
  12: git2r::fetch(gitrepo, name = "github", credentials = credentials)
  
  -- 3. Error: Install a single package w/o vignettes (@test_install.R#19)  ------
  unknown certificate check failure
  1: expect_true(length(i2 <- suppressWarnings(install_github("leeper/testghit", build_vignettes = FALSE, 
         lib = tmp))) == 1) at testthat/test_install.R:19
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: suppressWarnings(install_github("leeper/testghit", build_vignettes = FALSE, lib = tmp))
  5: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
  6: install_github("leeper/testghit", build_vignettes = FALSE, lib = tmp)
  7: sapply(unique(repo), function(x) {
         ghitmsg(verbose, message(sprintf("Parsing reponame for '%s'...", x)))
         p <- parse_reponame(repo = x)
         d <- checkout_github(p, host = host, credentials = credentials, verbose = verbose)
         on.exit(unlink(d), add = TRUE)
         ghitmsg(verbose, message(sprintf("Reading package metadata for '%s'...", x)))
         description <- read.dcf(file.path(d, "DESCRIPTION"))
         p$pkgname <- unname(description[1, "Package"])
         vers <- unname(description[1, "Version"])
         check_pkg_version(p, vers = vers, lib = if ("lib" %in% names(opts)) 
             c(.libPaths(), opts$lib)
         else .libPaths())
         if ("Suggests" %in% colnames(description)) {
             suggests <- clean_suggests(description)
             if (isTRUE(build_vignettes) && !is.null(suggests) && suggests != "") {
                 preinstall_suggests(suggests = suggests, p = p, type = type, repos = repos, 
                     dependencies = dependencies, verbose = verbose, ...)
             }
         }
         build_and_insert(p$pkgname, d, vers, build_args, verbose = verbose)
         return(p$pkgname)
     })
  8: lapply(X = X, FUN = FUN, ...)
  9: FUN(X[[i]], ...)
  10: checkout_github(p, host = host, credentials = credentials, verbose = verbose)
  11: utils::capture.output(git2r::fetch(gitrepo, name = "github", credentials = credentials))
  12: evalVis(expr)
  13: withVisible(eval(expr, pf))
  14: eval(expr, pf)
  15: eval(expr, envir, enclos)
  16: git2r::fetch(gitrepo, name = "github", credentials = credentials)
  17: git2r::fetch(gitrepo, name = "github", credentials = credentials)
  
  -- 4. Error: Install from a branch (@test_install.R#25)  -----------------------
  unknown certificate check failure
  1: expect_true(length(i4 <- install_github("leeper/testghit[branch]", lib = tmp)) == 
         1) at testthat/test_install.R:25
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: install_github("leeper/testghit[branch]", lib = tmp)
  5: sapply(unique(repo), function(x) {
         ghitmsg(verbose, message(sprintf("Parsing reponame for '%s'...", x)))
         p <- parse_reponame(repo = x)
         d <- checkout_github(p, host = host, credentials = credentials, verbose = verbose)
         on.exit(unlink(d), add = TRUE)
         ghitmsg(verbose, message(sprintf("Reading package metadata for '%s'...", x)))
         description <- read.dcf(file.path(d, "DESCRIPTION"))
         p$pkgname <- unname(description[1, "Package"])
         vers <- unname(description[1, "Version"])
         check_pkg_version(p, vers = vers, lib = if ("lib" %in% names(opts)) 
             c(.libPaths(), opts$lib)
         else .libPaths())
         if ("Suggests" %in% colnames(description)) {
             suggests <- clean_suggests(description)
             if (isTRUE(build_vignettes) && !is.null(suggests) && suggests != "") {
                 preinstall_suggests(suggests = suggests, p = p, type = type, repos = repos, 
                     dependencies = dependencies, verbose = verbose, ...)
             }
         }
         build_and_insert(p$pkgname, d, vers, build_args, verbose = verbose)
         return(p$pkgname)
     })
  6: lapply(X = X, FUN = FUN, ...)
  7: FUN(X[[i]], ...)
  8: checkout_github(p, host = host, credentials = credentials, verbose = verbose)
  9: utils::capture.output(git2r::fetch(gitrepo, name = "github", credentials = credentials))
  10: evalVis(expr)
  11: withVisible(eval(expr, pf))
  12: eval(expr, pf)
  13: eval(expr, envir, enclos)
  14: git2r::fetch(gitrepo, name = "github", credentials = credentials)
  15: git2r::fetch(gitrepo, name = "github", credentials = credentials)
  
  -- 5. Error: Install from a commit ref (@test_install.R#36)  -------------------
  unknown certificate check failure
  1: expect_true(length(i5 <- suppressWarnings(install_github("leeper/testghit@c039683f13", 
         lib = tmp))) == 1) at testthat/test_install.R:36
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: suppressWarnings(install_github("leeper/testghit@c039683f13", lib = tmp))
  5: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
  6: install_github("leeper/testghit@c039683f13", lib = tmp)
  7: sapply(unique(repo), function(x) {
         ghitmsg(verbose, message(sprintf("Parsing reponame for '%s'...", x)))
         p <- parse_reponame(repo = x)
         d <- checkout_github(p, host = host, credentials = credentials, verbose = verbose)
         on.exit(unlink(d), add = TRUE)
         ghitmsg(verbose, message(sprintf("Reading package metadata for '%s'...", x)))
         description <- read.dcf(file.path(d, "DESCRIPTION"))
         p$pkgname <- unname(description[1, "Package"])
         vers <- unname(description[1, "Version"])
         check_pkg_version(p, vers = vers, lib = if ("lib" %in% names(opts)) 
             c(.libPaths(), opts$lib)
         else .libPaths())
         if ("Suggests" %in% colnames(description)) {
             suggests <- clean_suggests(description)
             if (isTRUE(build_vignettes) && !is.null(suggests) && suggests != "") {
                 preinstall_suggests(suggests = suggests, p = p, type = type, repos = repos, 
                     dependencies = dependencies, verbose = verbose, ...)
             }
         }
         build_and_insert(p$pkgname, d, vers, build_args, verbose = verbose)
         return(p$pkgname)
     })
  8: lapply(X = X, FUN = FUN, ...)
  9: FUN(X[[i]], ...)
  10: checkout_github(p, host = host, credentials = credentials, verbose = verbose)
  11: utils::capture.output(git2r::fetch(gitrepo, name = "github", credentials = credentials))
  12: evalVis(expr)
  13: withVisible(eval(expr, pf))
  14: eval(expr, pf)
  15: eval(expr, envir, enclos)
  16: git2r::fetch(gitrepo, name = "github", credentials = credentials)
  17: git2r::fetch(gitrepo, name = "github", credentials = credentials)
  
  -- 6. Error: Install from a tag (@test_install.R#42)  --------------------------
  unknown certificate check failure
  1: expect_true(length(i6 <- suppressWarnings(install_github("leeper/testghit@v0.0.1", 
         lib = tmp))) == 1) at testthat/test_install.R:42
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: suppressWarnings(install_github("leeper/testghit@v0.0.1", lib = tmp))
  5: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
  6: install_github("leeper/testghit@v0.0.1", lib = tmp)
  7: sapply(unique(repo), function(x) {
         ghitmsg(verbose, message(sprintf("Parsing reponame for '%s'...", x)))
         p <- parse_reponame(repo = x)
         d <- checkout_github(p, host = host, credentials = credentials, verbose = verbose)
         on.exit(unlink(d), add = TRUE)
         ghitmsg(verbose, message(sprintf("Reading package metadata for '%s'...", x)))
         description <- read.dcf(file.path(d, "DESCRIPTION"))
         p$pkgname <- unname(description[1, "Package"])
         vers <- unname(description[1, "Version"])
         check_pkg_version(p, vers = vers, lib = if ("lib" %in% names(opts)) 
             c(.libPaths(), opts$lib)
         else .libPaths())
         if ("Suggests" %in% colnames(description)) {
             suggests <- clean_suggests(description)
             if (isTRUE(build_vignettes) && !is.null(suggests) && suggests != "") {
                 preinstall_suggests(suggests = suggests, p = p, type = type, repos = repos, 
                     dependencies = dependencies, verbose = verbose, ...)
             }
         }
         build_and_insert(p$pkgname, d, vers, build_args, verbose = verbose)
         return(p$pkgname)
     })
  8: lapply(X = X, FUN = FUN, ...)
  9: FUN(X[[i]], ...)
  10: checkout_github(p, host = host, credentials = credentials, verbose = verbose)
  11: utils::capture.output(git2r::fetch(gitrepo, name = "github", credentials = credentials))
  12: evalVis(expr)
  13: withVisible(eval(expr, pf))
  14: eval(expr, pf)
  15: eval(expr, envir, enclos)
  16: git2r::fetch(gitrepo, name = "github", credentials = credentials)
  17: git2r::fetch(gitrepo, name = "github", credentials = credentials)
  
  -- 7. Error: Install from a pull request (@test_install.R#49)  -----------------
  unknown certificate check failure
  1: expect_true(length(i7 <- suppressWarnings(install_github("leeper/testghit#1", lib = tmp))) == 
         1) at testthat/test_install.R:49
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: suppressWarnings(install_github("leeper/testghit#1", lib = tmp))
  5: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
  6: install_github("leeper/testghit#1", lib = tmp)
  7: sapply(unique(repo), function(x) {
         ghitmsg(verbose, message(sprintf("Parsing reponame for '%s'...", x)))
         p <- parse_reponame(repo = x)
         d <- checkout_github(p, host = host, credentials = credentials, verbose = verbose)
         on.exit(unlink(d), add = TRUE)
         ghitmsg(verbose, message(sprintf("Reading package metadata for '%s'...", x)))
         description <- read.dcf(file.path(d, "DESCRIPTION"))
         p$pkgname <- unname(description[1, "Package"])
         vers <- unname(description[1, "Version"])
         check_pkg_version(p, vers = vers, lib = if ("lib" %in% names(opts)) 
             c(.libPaths(), opts$lib)
         else .libPaths())
         if ("Suggests" %in% colnames(description)) {
             suggests <- clean_suggests(description)
             if (isTRUE(build_vignettes) && !is.null(suggests) && suggests != "") {
                 preinstall_suggests(suggests = suggests, p = p, type = type, repos = repos, 
                     dependencies = dependencies, verbose = verbose, ...)
             }
         }
         build_and_insert(p$pkgname, d, vers, build_args, verbose = verbose)
         return(p$pkgname)
     })
  8: lapply(X = X, FUN = FUN, ...)
  9: FUN(X[[i]], ...)
  10: checkout_github(p, host = host, credentials = credentials, verbose = verbose)
  11: git2r::remote_ls("github", gitrepo)
  12: git2r::remote_ls("github", gitrepo)
  
  -- 8. Error: (unknown) (@test_internal.R#13)  ----------------------------------
  unknown certificate check failure
  1: ghit:::checkout_github(x1, "github.com") at testthat/test_internal.R:13
  2: utils::capture.output(git2r::fetch(gitrepo, name = "github", credentials = credentials))
  3: evalVis(expr)
  4: withVisible(eval(expr, pf))
  5: eval(expr, pf)
  6: eval(expr, envir, enclos)
  7: git2r::fetch(gitrepo, name = "github", credentials = credentials)
  8: git2r::fetch(gitrepo, name = "github", credentials = credentials)
  
  == testthat results  ===========================================================
  OK: 9 SKIPPED: 0 FAILED: 8
  1. Error: Install a single package (@test_install.R#8) 
  2. Error: Install a single package, removing old install (@test_install.R#14) 
  3. Error: Install a single package w/o vignettes (@test_install.R#19) 
  4. Error: Install from a branch (@test_install.R#25) 
  5. Error: Install from a commit ref (@test_install.R#36) 
  6. Error: Install from a tag (@test_install.R#42) 
  7. Error: Install from a pull request (@test_install.R#49) 
  8. Error: (unknown) (@test_internal.R#13) 
  
  Error: testthat unit tests failed
  Execution halted