me
/
guix
Archived
1
0
Fork 0
Code

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>
Josselin Poiret 2023-07-21 12:14:57 +02:00 committed by Ludovic Courtès
parent 560cb51e7b
commit f8dd637756
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
tests/packages.scm
View File

@ -1277,8 +1277,9 @@
;; #:guile guile)))) ;; #:guile guile))))
(test-equal "package->bag" (test-equal "package->bag"
`("foo86-hurd" #f (,(package-source gnu-make)) (parameterize ((%current-system "foo86-hurd"))
(,(canonical-package glibc)) (,(canonical-package coreutils))) `("foo86-hurd" #f (,(package-source gnu-make))
(,(canonical-package glibc)) (,(canonical-package coreutils))))
(let ((bag (package->bag gnu-make "foo86-hurd"))) (let ((bag (package->bag gnu-make "foo86-hurd")))
(list (bag-system bag) (bag-target bag) (list (bag-system bag) (bag-target bag)
(assoc-ref (bag-build-inputs bag) "source") (assoc-ref (bag-build-inputs bag) "source")