nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

tests: Update package-transitive-supported-systems tests. 

* tests/packages.scm ("package-transitive-supported-systems, implicit
inputs"): Test traditionally-bootstrapped architecture.
("package-transitive-supported-systems: reduced binary seed, implicit
inputs"): New test for Reduced Binary Seed bootstrap.
This commit is contained in:
Jan Nieuwenhuizen 2018-09-23 08:04:19 +02:00
parent eb4434598c
commit 0db65c168f
No known key found for this signature in database
GPG Key ID: F3C1A0D9C1D65273
1 changed files with 18 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
tests/packages.scm
View File

@ -1,5 +1,6 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017, 2018 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017, 2018 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -36,6 +37,7 @@
#:use-module (guix build-system) #:use-module (guix build-system)
#:use-module (guix build-system trivial) #:use-module (guix build-system trivial)
#:use-module (guix build-system gnu) #:use-module (guix build-system gnu)
#:use-module (guix memoization)
#:use-module (guix profiles) #:use-module (guix profiles)
#:use-module (guix scripts package) #:use-module (guix scripts package)
#:use-module (gnu packages) #:use-module (gnu packages)
@ -311,13 +313,28 @@
(test-equal "package-transitive-supported-systems, implicit inputs" (test-equal "package-transitive-supported-systems, implicit inputs"
%supported-systems %supported-systems
;; Here GNU-BUILD-SYSTEM adds implicit inputs that build only on
;; %SUPPORTED-SYSTEMS. Thus the others must be ignored.
(let ((p (dummy-package "foo"
(build-system gnu-build-system)
(supported-systems
`("does-not-exist" "foobar" ,@%supported-systems)))))
(invalidate-memoization! package-transitive-supported-systems)
(parameterize ((%current-system "armhf-linux")) ; a traditionally-bootstrapped architecture
(package-transitive-supported-systems p))))
(test-equal "package-transitive-supported-systems: reduced binary seed, implicit inputs"
'("x86_64-linux" "i686-linux")
;; Here GNU-BUILD-SYSTEM adds implicit inputs that build only on ;; Here GNU-BUILD-SYSTEM adds implicit inputs that build only on
;; %SUPPORTED-SYSTEMS. Thus the others must be ignored. ;; %SUPPORTED-SYSTEMS. Thus the others must be ignored.
(let ((p (dummy-package "foo" (let ((p (dummy-package "foo"
(build-system gnu-build-system) (build-system gnu-build-system)
(supported-systems (supported-systems
`("does-not-exist" "foobar" ,@%supported-systems))))) `("does-not-exist" "foobar" ,@%supported-systems)))))
(package-transitive-supported-systems p))) (invalidate-memoization! package-transitive-supported-systems)
(parameterize ((%current-system "x86_64-linux"))
(package-transitive-supported-systems p))))
(test-assert "supported-package?" (test-assert "supported-package?"
(let ((p (dummy-package "foo" (let ((p (dummy-package "foo"