summary refs log tree commit diff
path: root/tests
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2021-06-30 16:00:37 +0200
committerLudovic Courtès <ludo@gnu.org>2021-07-11 00:49:16 +0200
commitff992fcfaf8455910b4bb5e02861fe9ae3dfd974 (patch)
tree798469901f98196307940907845d814589c2553f /tests
parentaa6921634b4ea9988af0e37bfbb56780c431ef64 (diff)
downloadguix-ff992fcfaf8455910b4bb5e02861fe9ae3dfd974.tar.gz
import: print: Emit new-style package inputs when possible.
* guix/import/print.scm (redundant-input-labels?): New procedure.
(package->code)[package-lists->code]: Rename to...
[inputs->code]: ... this.  When 'redundant-input-labels?' returns true,
emit label-less inputs.  Adjust callers to new name.
* tests/print.scm (pkg-with-inputs): Adjust accordingly.
Diffstat (limited to 'tests')
-rw-r--r--tests/print.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/print.scm b/tests/print.scm
index 3386590d3a..1b24e12f2e 100644
--- a/tests/print.scm
+++ b/tests/print.scm
@@ -60,8 +60,8 @@
                (base32
                 "070pwb7brdcn1mfvplkd56vjc7lbz4iznzkqvfsakvgbv68k71ah"))))
     (build-system (@ (guix build-system gnu) gnu-build-system))
-    (inputs `(("coreutils" ,(@ (gnu packages base) coreutils))
-              ("glibc" ,(@ (gnu packages base) glibc) "debug")))
+    (inputs (list (@ (gnu packages base) coreutils)
+                  `(,(@ (gnu packages base) glibc) "debug")))
     (home-page "http://gnu.org")
     (synopsis "Dummy")
     (description "This is a dummy package.")