diff options
author | Ludovic Courtès <ludo@gnu.org> | 2019-12-27 13:15:00 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2019-12-27 13:52:49 +0100 |
commit | 785af04a7574867dc940c791daa938a2432d0450 (patch) | |
tree | 79e76abd4a1d168a0a8fb0b331061d99ced6d1d7 /tests | |
parent | 1e43ab2c032834e43a43eb4c27d6a50bf66b86ba (diff) | |
download | patches-785af04a7574867dc940c791daa938a2432d0450.tar patches-785af04a7574867dc940c791daa938a2432d0450.tar.gz |
git: 'commit-difference' takes a list of excluded commits.
* guix/git.scm (commit-closure): Add 'visited' optional parameter.
(commit-difference): Add 'excluded' optional parameter; pass second
argument to 'commit-closure'.
* tests/git.scm ("commit-difference, excluded commits"): New test.
Diffstat (limited to 'tests')
-rw-r--r-- | tests/git.scm | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/tests/git.scm b/tests/git.scm index 8ba10ece51..052f8a79c4 100644 --- a/tests/git.scm +++ b/tests/git.scm @@ -96,4 +96,30 @@ (lset= eq? (commit-difference master4 master2) (list master4 merge master3 devel1 devel2))))))) +(unless (which (git-command)) (test-skip 1)) +(test-assert "commit-difference, excluded commits" + (with-temporary-git-repository directory + '((add "a.txt" "A") + (commit "first commit") + (add "b.txt" "B") + (commit "second commit") + (add "c.txt" "C") + (commit "third commit") + (add "d.txt" "D") + (commit "fourth commit") + (add "e.txt" "E") + (commit "fifth commit")) + (with-repository directory repository + (let ((commit1 (find-commit repository "first")) + (commit2 (find-commit repository "second")) + (commit3 (find-commit repository "third")) + (commit4 (find-commit repository "fourth")) + (commit5 (find-commit repository "fifth"))) + (and (lset= eq? (commit-difference commit4 commit1 (list commit2)) + (list commit3 commit4)) + (lset= eq? (commit-difference commit4 commit1 (list commit3)) + (list commit4)) + (lset= eq? (commit-difference commit4 commit1 (list commit5)) + (list commit2 commit3 commit4))))))) + (test-end "git") |