gert/tests/testthat/test-config.R at a02cc81d23ea249414a922fad91df03514077938 · maelle/gert · GitHub

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
test_that("git_config_get returns value or NULL", {
  repo <- git_init(tempfile("gert-tests-config"))
  on.exit(unlink(repo, recursive = TRUE))

  expect_null(git_config_get("aaa.bbb", repo = repo))
  git_config_set("aaa.bbb", "ccc", repo = repo)
  expect_equal(git_config_get("aaa.bbb", repo = repo), "ccc")
})

test_that("git_config_global_get returns value or NULL", {
  expect_null(git_config_global_get("gert.nonexistent.option.xyzzy"))
  # Note: avoid setting/unsetting real global config in tests
})

test_that("git_config_local_get returns local value or NULL", {
  repo <- git_init(tempfile("gert-tests-config"))
  on.exit(unlink(repo, recursive = TRUE))

  expect_null(git_config_local_get("aaa.bbb", repo = repo))
  git_config_set("aaa.bbb", "ccc", repo = repo)
  expect_equal(git_config_local_get("aaa.bbb", repo = repo), "ccc")
  # global-only option should not be visible at local level
  expect_null(git_config_local_get(
    "gert.nonexistent.option.xyzzy",
    repo = repo
  ))
})

test_that("local, custom config roundtrip", {
  repo <- git_init(tempfile("gert-tests-config"))
  on.exit(unlink(repo, recursive = TRUE))

  orig <- git_config_set("aaa.bbb", "ccc", repo = repo)
  expect_null(orig)
  expect_equal(git_config_get("aaa.bbb", repo = repo), "ccc")

  orig <- git_config_set("aaa.bbb", NULL, repo = repo)
  expect_equal(orig, "ccc")
  expect_null(git_config_get("aaa.bbb", repo = repo))
})