summary refs log tree commit diff
path: root/tests/git.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2020-06-08 21:39:55 +0200
committerLudovic Courtès <ludo@gnu.org>2020-06-09 00:34:52 +0200
commit72357e2170e88f73c11ff089f87a744cee8606ec (patch)
tree6a80061f7a74c68ab6ed8a2e8144ed3c27742d40 /tests/git.scm
parent5d95ac9178c2b4f5510390b0c31d440efc3c203d (diff)
downloadguix-72357e2170e88f73c11ff089f87a744cee8606ec.tar.gz
git: 'commit-difference' really excludes the ancestors of #:excluded.
* guix/git.scm (commit-difference): Initialize VISITED to the closure of
OLD and EXCLUDED, as written in the docstring.
* tests/git.scm ("commit-difference, excluded commits"): Adjust
accordingly.
Diffstat (limited to 'tests/git.scm')
-rw-r--r--tests/git.scm3
1 files changed, 1 insertions, 2 deletions
diff --git a/tests/git.scm b/tests/git.scm
index 4a806abcc3..aa4f03ca62 100644
--- a/tests/git.scm
+++ b/tests/git.scm
@@ -119,8 +119,7 @@
                     (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)))))))
+             (null? (commit-difference commit4 commit1 (list commit5))))))))
 
 (unless (which (git-command)) (test-skip 1))
 (test-equal "commit-relation"