tests: Adjust to the addition of a new Coreutils version.

* tests/scripts-build.scm ("options->transformation, with-input"): Use
'specification->package' rather than refer to Coreutils by its
variable.  This is a followup to e162050dfc.
This commit is contained in:
Ludovic Courtès 2017-04-21 22:53:59 +02:00
parent 9231ef12f2
commit 904c6c42eb
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2016 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2016, 2017 Ludovic Courtès <ludo@gnu.org>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -23,6 +23,7 @@ (define-module (test-scripts-build)
#:use-module (guix scripts build) #:use-module (guix scripts build)
#:use-module (guix ui) #:use-module (guix ui)
#:use-module (guix utils) #:use-module (guix utils)
#:use-module (gnu packages)
#:use-module (gnu packages base) #:use-module (gnu packages base)
#:use-module (gnu packages busybox) #:use-module (gnu packages busybox)
#:use-module (ice-9 match) #:use-module (ice-9 match)
@ -97,8 +98,8 @@ (define-module (test-scripts-build)
(test-assert "options->transformation, with-input" (test-assert "options->transformation, with-input"
(let* ((p (dummy-package "guix.scm" (let* ((p (dummy-package "guix.scm"
(inputs `(("foo" ,coreutils) (inputs `(("foo" ,(specification->package "coreutils"))
("bar" ,grep) ("bar" ,(specification->package "grep"))
("baz" ,(dummy-package "chbouib" ("baz" ,(dummy-package "chbouib"
(native-inputs `(("x" ,grep))))))))) (native-inputs `(("x" ,grep)))))))))
(t (options->transformation '((with-input . "coreutils=busybox") (t (options->transformation '((with-input . "coreutils=busybox")