diff options
| author | Mathieu Lirzin <mthl@gnu.org> | 2016-07-13 17:41:56 +0200 |
|---|---|---|
| committer | Mathieu Lirzin <mthl@gnu.org> | 2016-07-14 17:44:23 +0200 |
| commit | 1b804d7402dda9a54c89bbc4731ea513719d6152 (patch) | |
| tree | 5df0dc8516065f0882e3d8b0da00e9e159cbc60e /tests | |
| parent | efe96ced25ce3dc0810dd40affe0d7b1e9ef7530 (diff) | |
| download | cuirass-1b804d7402dda9a54c89bbc4731ea513719d6152.tar cuirass-1b804d7402dda9a54c89bbc4731ea513719d6152.tar.gz | |
gnu-system: Use 'specification->package' when possible.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/gnu-system.scm | 33 |
1 files changed, 14 insertions, 19 deletions
diff --git a/tests/gnu-system.scm b/tests/gnu-system.scm index fc7c15f..90c2af8 100644 --- a/tests/gnu-system.scm +++ b/tests/gnu-system.scm @@ -35,21 +35,13 @@ ((guix utils) #:select (%current-system)) ((guix scripts system) #:select (read-operating-system)) (gnu packages) - (gnu packages gcc) - (gnu packages base) - (gnu packages gawk) + (gnu packages commencement) (gnu packages guile) - (gnu packages gettext) - (gnu packages compression) - (gnu packages multiprecision) (gnu packages make-bootstrap) - (gnu packages commencement) - (gnu packages package-management) (gnu system) (gnu system vm) (gnu system install) (srfi srfi-1) - (srfi srfi-26) (ice-9 match)) (define (package-metadata package) @@ -91,15 +83,17 @@ for TARGET on SYSTEM." ;; Note: Don't put the '-final' package variants because (1) that's ;; implicit, and (2) they cannot be cross-built (due to the explicit input ;; chain.) - (list gcc-4.8 gcc-4.9 gcc-5 glibc binutils - gmp mpfr mpc coreutils findutils diffutils patch sed grep - gawk gnu-gettext hello guile-2.0 zlib gzip xz - %bootstrap-binaries-tarball - %binutils-bootstrap-tarball - %glibc-bootstrap-tarball - %gcc-bootstrap-tarball - %guile-bootstrap-tarball - %bootstrap-tarballs)) + (append (map specification->package + '("gcc@4.8" "gcc@4.9" "gcc@5" "glibc" "binutils" + "gmp" "mpfr" "mpc" "coreutils" "findutils" "diffutils" "patch" "sed" "grep" + "gawk" "gettext" "hello" "zlib" "gzip" "xz")) + (list guile-2.0 + %bootstrap-binaries-tarball + %binutils-bootstrap-tarball + %glibc-bootstrap-tarball + %gcc-bootstrap-tarball + %guile-bootstrap-tarball + %bootstrap-tarballs))) (define %packages-to-cross-build %core-packages) @@ -219,7 +213,8 @@ valid." ((hello) ;; Build hello package only. (if (string=? system (%current-system)) - (list (package-job store (%job-name hello) hello system)) + (let ((hello (specification->package "hello"))) + (list (package-job store (%job-name hello) hello system))) '())) (else (error "unknown subset" subset)))) |