summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2022-05-31 14:38:23 +0200
committerLudovic Courtès <ludo@gnu.org>2022-07-01 23:29:16 +0200
commit9b8c442b254b82196fe2492142b3c3bbbd891a1b (patch)
tree635a99a50863f0b2565d05e5636d309c21f96803
parentbf7e07d299b197891110fbd8c717badbab06a472 (diff)
tests: Augment profile collision test.
* tests/profiles.scm ("collision of propagated inputs"): Check the parents of ENTRY1 and ENTRY2.
-rw-r--r--tests/profiles.scm10
1 files changed, 8 insertions, 2 deletions
diff --git a/tests/profiles.scm b/tests/profiles.scm
index 7418b7470f..a026f6e238 100644
--- a/tests/profiles.scm
+++ b/tests/profiles.scm
@@ -556,14 +556,20 @@
(return #f)))))
(test-equal "collision of propagated inputs"
- '(("guile-bootstrap" "2.0") ("guile-bootstrap" "42"))
+ '(("guile-bootstrap" "2.0") "p1"
+ <> ("guile-bootstrap" "42") "p2")
(guard (c ((profile-collision-error? c)
(let ((entry1 (profile-collision-error-entry c))
(entry2 (profile-collision-error-conflict c)))
(list (list (manifest-entry-name entry1)
(manifest-entry-version entry1))
+ (manifest-entry-name
+ (force (manifest-entry-parent entry1)))
+ '<>
(list (manifest-entry-name entry2)
- (manifest-entry-version entry2))))))
+ (manifest-entry-version entry2))
+ (manifest-entry-name
+ (force (manifest-entry-parent entry2)))))))
(run-with-store %store
(mlet* %store-monad ((p0 -> (package
(inherit %bootstrap-guile)