From 0ab212b9466d5aa3fe801c9137248703245d8513 Mon Sep 17 00:00:00 2001
From: Nikita Karetnikov <nikita@karetnikov.org>
Date: Tue, 24 Sep 2013 22:11:16 +0000
Subject: guix package: Exit with 1 when a generation cannot be listed.

* guix/scripts/package.scm (guix-package)[process-query]: Exit with 1
  when a generation does not exist or the profile points to the zeroth
  generation.
* tests/guix-package.sh: Test the former case.
---
 tests/guix-package.sh | 4 ++++
 1 file changed, 4 insertions(+)

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

diff --git a/tests/guix-package.sh b/tests/guix-package.sh
index b09a9c0173..f1f7ee6c7d 100644
--- a/tests/guix-package.sh
+++ b/tests/guix-package.sh
@@ -85,6 +85,10 @@ then
     test "`guix package -p "$profile" -l | cut -f1 | grep guile | head -n1`" \
         = "  guile-bootstrap"
 
+    # Exit with 1 when a generation does not exist.
+    if guix package -p "$profile" --list-generations=42;
+    then false; else true; fi
+
     # Remove a package.
     guix package --bootstrap -p "$profile" -r "guile-bootstrap"
     test -L "$profile-3-link"
-- 
cgit 1.4.1