[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
02/03: tests: packages: Set system for expected result of package->bag.
From: |
guix-commits |
Subject: |
02/03: tests: packages: Set system for expected result of package->bag. |
Date: |
Fri, 18 Aug 2023 10:12:10 -0400 (EDT) |
civodul pushed a commit to branch master
in repository guix.
commit f8dd6377560ee2b3a69059f2af1455c9869478c3
Author: Josselin Poiret <dev@jpoiret.xyz>
AuthorDate: Fri Jul 21 12:14:57 2023 +0200
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>
---
tests/packages.scm | 5 +++--
1 file 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")