test_that("remotes from new repo",{
skip_if_offline('github.com')
repo <- git_init(tempfile("gert-tests-remote"))
on.exit(unlink(repo, recursive = TRUE))
expect_equal(nrow(git_remote_list(repo = repo)), 0)
expect_error(git_remote_info(repo = repo))
expect_error(git_remote_refspecs(repo = repo))
expect_error(git_remote_set_url('https://github.com/foo/bar', repo = repo))
expect_error(git_remote_set_pushurl('https://github.com/foo/bar', repo = repo))
expect_equal(git_remote_add('https://github.com/jeroen/webp', name = 'jeroen', repo = repo), 'jeroen')
git_fetch('jeroen', repo = repo)
git_branch_create('master', 'jeroen/master', repo = repo)
git_branch_create('testje', git_commit_id('jeroen/master', repo = repo), checkout = FALSE, repo = repo)
git_remote_set_pushurl('https://github.com/foo/baz', repo = repo)
info <- git_remote_info(repo = repo)
expect_equal(info$name, 'jeroen')
expect_equal(info$url, "https://github.com/jeroen/webp")
expect_equal(info$push_url, "https://github.com/foo/baz")
expect_equal(info$fetch, "+refs/heads/*:refs/remotes/jeroen/*")
branches <- git_branch_list(repo = repo)
expect_equal(branches$name, c("master", "testje", "jeroen/master"))
expect_equal(branches$upstream, c("refs/remotes/jeroen/master", NA, NA))
})
test_that("remotes after clone", {
skip_if_offline('github.com')
repo <- file.path(tempdir(), 'gert')
if(!file.exists(repo)) git_clone('https://github.com/r-lib/gert', path = repo)
info <- git_remote_info(repo = repo)
expect_equal(info$name, 'origin')
expect_equal(info$url, "https://github.com/r-lib/gert")
expect_equal(info$fetch, "+refs/heads/*:refs/remotes/origin/*")
refspecs <- git_remote_refspecs(repo = repo)
expect_equal(refspecs$direction, 'fetch')
remotelist <- git_remote_list(repo = repo)
expect_equal(remotelist$name, 'origin')
expect_equal(remotelist$url, 'https://github.com/r-lib/gert')
expect_error(git_remote_add('https://github.com/jeroen/gert', repo = repo))
expect_equal(git_remote_add('https://github.com/jeroen/gert', name = 'myfork', repo = repo), 'myfork')
remotelist <- git_remote_list(repo = repo)
expect_equal(sort(remotelist$name), c("myfork", 'origin'))
expect_equal(sort(remotelist$url), c("https://github.com/jeroen/gert", 'https://github.com/r-lib/gert'))
expect_equal(git_remote_refspecs('myfork', repo = repo)$refspec, '+refs/heads/*:refs/remotes/myfork/*')
})
Generated by dwww version 1.15 on Sat May 18 12:11:14 CEST 2024.