Nothing
test_that("git_extract_sha1_tar", {
skip_on_cran()
skip_if_offline()
skip_if_over_rate_limit()
sha <- "fbae60ced0afee0e7c0f8dc3b5b1bb48d303f3dd"
url <- build_url(
"api.github.com/repos/hadley/devtools/tarball",
sha
)
tmp <- tempfile()
on.exit(unlink(tmp), add = TRUE)
download(tmp, url, auth_token = github_pat())
expect_equal(
git_extract_sha1_tar(tmp),
sha
)
})
test_that("git not quiet", {
mockery::stub(git, "check_git_path", "/foo/git")
mockery::stub(git, "system", "0")
expect_message(
git(args = c("arg1", "arg2"), quiet = FALSE),
"['\"]/foo/git['\"] arg1arg2"
)
})
test_that("git error", {
mockery::stub(git, "check_git_path", "/foo/git")
mockery::stub(git, "system", structure("foo", status = "1"))
expect_error(git(args = "arg"), "Command failed")
})
test_that("git_path", {
tmp <- tempfile()
expect_error(
git_path(tmp),
"does not exist"
)
cat("Hello", file = tmp)
expect_equal(git_path(tmp), tmp)
mockery::stub(git_path, "Sys.which", "")
mockery::stub(git_path, "os_type", "windows")
mockery::stub(git_path, "file.exists", FALSE)
expect_null(git_path())
})
test_that("check_git_path", {
mockery::stub(check_git_path, "git_path", NULL)
expect_error(
check_git_path(),
"Git does not seem to be installed on your system"
)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.