diff options
author | Josselin Poiret <dev@jpoiret.xyz> | 2023-07-21 12:14:57 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2023-08-18 16:09:29 +0200 |
commit | f8dd6377560ee2b3a69059f2af1455c9869478c3 (patch) | |
tree | 9ab234db3577926f82277cc98ed372ecfff53039 | |
parent | 560cb51e7b37e2c6f6fe4b72a3781185c57fdf83 (diff) |
tests: packages: Set system for expected result of package->bag.
* tests/packages.scm ("package->bag"): Parameterize the expected result by the
system used to lower the package to a bag.
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
-rw-r--r-- | tests/packages.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/tests/packages.scm b/tests/packages.scm index 2b7ab01f7d..2b4f9f8e90 100644 --- a/tests/packages.scm +++ b/tests/packages.scm @@ -1277,8 +1277,9 @@ ;; #:guile guile)))) (test-equal "package->bag" - `("foo86-hurd" #f (,(package-source gnu-make)) - (,(canonical-package glibc)) (,(canonical-package coreutils))) + (parameterize ((%current-system "foo86-hurd")) + `("foo86-hurd" #f (,(package-source gnu-make)) + (,(canonical-package glibc)) (,(canonical-package coreutils)))) (let ((bag (package->bag gnu-make "foo86-hurd"))) (list (bag-system bag) (bag-target bag) (assoc-ref (bag-build-inputs bag) "source") |