From 5763ad9266ec7682d53b87a874fc6ae04f92b6c4 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Sun, 19 Apr 2015 19:12:22 +0200
Subject: guix package: -A and -s take supported systems into account.

* guix/scripts/package.scm (guix-package)[process-query]
  <list-available>: Restrict results to packages matching
  'supported-package?".
* guix/ui.scm (package->recutils): Print "systems:".
* tests/guix-package.sh: Add tests.
* doc/guix.texi (Invoking guix package): Adjust description of
  '--list-available' accordingly.
---
 tests/guix-package.sh | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'tests/guix-package.sh')

diff --git a/tests/guix-package.sh b/tests/guix-package.sh
index 6cfd50b5e5..a732110d5c 100644
--- a/tests/guix-package.sh
+++ b/tests/guix-package.sh
@@ -212,9 +212,19 @@ cat > "$module_dir/foo.scm"<<EOF
               (patches (list (search-patch "emacs.patch")))))
     (name "emacs-foo-bar-patched")
     (version "42")))
+
+(define-public y
+  (package (inherit emacs)
+    (name "super-non-portable-emacs")
+    (supported-systems '("foobar64-hurd"))))
 EOF
 guix package -i emacs-foo-bar-patched -n
 
+# This one should not show up in searches since it's no supported on the
+# current system.
+test "`guix package -A super-non-portable-emacs`" = ""
+test "`guix package -s super-non-portable-emacs | grep ^systems:`" = "systems: "
+
 unset GUIX_PACKAGE_PATH
 
 # Using 'GUIX_BUILD_OPTIONS'.
-- 
cgit v1.2.3