From 51a2303cf73aa88c083aad8eefedf63a6157431a Mon Sep 17 00:00:00 2001 From: Josselin Poiret Date: Fri, 21 Jul 2023 12:14:57 +0200 Subject: 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. --- tests/packages.scm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'tests') 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") -- cgit 1.4.1