diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2022-05-31 14:38:23 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2022-07-01 23:29:16 +0200 |
| commit | 9b8c442b254b82196fe2492142b3c3bbbd891a1b (patch) | |
| tree | 635a99a50863f0b2565d05e5636d309c21f96803 | |
| parent | bf7e07d299b197891110fbd8c717badbab06a472 (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.scm | 10 |
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) |