1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
|
# Branch ------------------------------------------------------------------
test_that("git_branch() works", {
skip_if_no_git_user()
create_local_project()
expect_usethis_error(git_branch(), "Cannot detect")
git_init()
expect_usethis_error(git_branch(), "unborn branch")
writeLines("blah", proj_path("blah.txt"))
gert::git_add("blah.txt", repo = git_repo())
gert::git_commit("Make one commit", repo = git_repo())
# branch name can depend on user's config, e.g. could be 'master' or 'main'
expect_no_error(
b <- git_branch()
)
expect_true(nzchar(b))
})
# Protocol ------------------------------------------------------------------
test_that("git_protocol() catches bad input from usethis.protocol option", {
withr::with_options(
list(usethis.protocol = "nope"),
{
expect_usethis_error(git_protocol(), "must be either")
expect_null(getOption("usethis.protocol"))
}
)
withr::with_options(
list(usethis.protocol = c("ssh", "https")),
{
expect_usethis_error(git_protocol(), "must be either")
expect_null(getOption("usethis.protocol"))
}
)
})
test_that("use_git_protocol() errors for bad input", {
expect_usethis_error(use_git_protocol("nope"), "must be either")
})
test_that("git_protocol() defaults to 'https'", {
withr::with_options(
list(usethis.protocol = NULL),
expect_identical(git_protocol(), "https")
)
})
test_that("git_protocol() honors, vets, and lowercases the option", {
withr::with_options(
list(usethis.protocol = "ssh"),
expect_identical(git_protocol(), "ssh")
)
withr::with_options(
list(usethis.protocol = "SSH"),
expect_identical(git_protocol(), "ssh")
)
withr::with_options(
list(usethis.protocol = "https"),
expect_identical(git_protocol(), "https")
)
withr::with_options(
list(usethis.protocol = "nope"),
expect_usethis_error(git_protocol(), "must be either")
)
})
test_that("use_git_protocol() prioritizes and lowercases direct input", {
withr::with_options(
list(usethis.protocol = "ssh"),
{
expect_identical(use_git_protocol("HTTPS"), "https")
expect_identical(git_protocol(), "https")
}
)
})
|
