diff options
| author | Roman Scherer <roman@burningswell.com> | 2026-04-12 12:38:45 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2026-04-22 16:51:07 +0200 |
| commit | 6a5005d62eaf1938e104276986e61548ea3b1afc (patch) | |
| tree | 4df620a1ed323fb5e1a8b3c0a9c5e313bac2b592 /tests | |
| parent | c04485849e8fa210835358bfa41240af35aec206 (diff) | |
tests: gexp: Fix test shadowing replacement field.
Fixes a regression introduced in a7c8e68dc51144a6d3981b770aca9c4897fc7c0c.
* tests/gexp.scm (gexp): Rename replacement binding to replacement-pkg in
order to not shadow the replacement field of the package record.
Change-Id: I70ceafc92f52e588b3cac8f74bffa274bf0da352
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
Merges: #7846
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/gexp.scm | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/tests/gexp.scm b/tests/gexp.scm index 1646d48a42..ddb9904fef 100644 --- a/tests/gexp.scm +++ b/tests/gexp.scm @@ -503,16 +503,16 @@ (derivation-file-name result))))) (test-assertm "with-parameters for %graft?" - (mlet* %store-monad ((replacement -> (package - (inherit %bootstrap-guile) - (name (string-upcase - (package-name - %bootstrap-guile))))) + (mlet* %store-monad ((replacement-pkg -> (package + (inherit %bootstrap-guile) + (name (string-upcase + (package-name + %bootstrap-guile))))) (guile -> (package (inherit %bootstrap-guile) - (replacement replacement))) + (replacement replacement-pkg))) (drv0 (package->derivation %bootstrap-guile)) - (drv1 (package->derivation replacement)) + (drv1 (package->derivation replacement-pkg)) (obj0 -> (with-parameters ((%graft? #f)) guile)) (obj1 -> (with-parameters ((%graft? #t)) |