diff options
| author | Josselin Poiret <dev@jpoiret.xyz> | 2023-07-21 12:14:57 +0200 |
|---|---|---|
| committer | Janneke Nieuwenhuizen <janneke@gnu.org> | 2023-07-21 17:54:43 +0200 |
| commit | 51a2303cf73aa88c083aad8eefedf63a6157431a (patch) | |
| tree | ea1b8d3c41a18af3f518dc88ef21de4fb04682ba | |
| parent | 56dece7ad6f31ab917ccbc4fd7cce5e2d11cfef5 (diff) | |
| download | guix-51a2303cf73aa88c083aad8eefedf63a6157431a.tar.gz | |
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.
| -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") |