From 912209ee61ced92c3246da78ed9991781fa6bf2d Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Wed, 7 Nov 2012 23:41:59 +0100
Subject: guix-build: Error out when `-S' used for source-less package.

* guix-build.in (derivations-from-package-expressions): Leave with an
  error message when SOURCE? is #t and P has no source.

* tests/guix-build.sh: Add test.
---
 tests/guix-build.sh | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

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

diff --git a/tests/guix-build.sh b/tests/guix-build.sh
index 4df5cc0790..7f0e624edb 100644
--- a/tests/guix-build.sh
+++ b/tests/guix-build.sh
@@ -23,7 +23,12 @@
 guix-build --version
 
 # Should fail.
-guix-build -e + || true
+if guix-build -e +;
+then false; else true; fi
+
+# Should fail because this is a source-less package.
+if guix-build -e '(@ (distro packages bootstrap) %bootstrap-glibc)' -S
+then false; else true; fi
 
 # Should pass.
 guix-build -e '(@@ (distro packages base) %bootstrap-guile)' |	\
-- 
cgit v1.2.3