diff options
author | Ludovic Courtès <ludo@gnu.org> | 2012-11-07 23:41:59 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2012-11-07 23:44:38 +0100 |
commit | 912209ee61ced92c3246da78ed9991781fa6bf2d (patch) | |
tree | fa52b575a5bcbefc8e03591e3679fb2181a8949b | |
parent | eeaf44276cb50fb341d80faa650fb62fd1cf2dbe (diff) | |
download | guix-912209ee61ced92c3246da78ed9991781fa6bf2d.tar.gz |
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.
-rw-r--r-- | guix-build.in | 15 | ||||
-rw-r--r-- | tests/guix-build.sh | 7 |
2 files changed, 15 insertions, 7 deletions
diff --git a/guix-build.in b/guix-build.in index c7bcb38975..3b1e6c3115 100644 --- a/guix-build.in +++ b/guix-build.in @@ -53,13 +53,16 @@ When SOURCE? is true, return the derivations of the package sources." (let ((p (eval exp (current-module)))) (if (package? p) (if source? - (package-source-derivation %store (package-source p)) + (let ((source (package-source p)) + (loc (package-location p))) + (if source + (package-source-derivation %store source) + (leave (_ "~a:~a:~a: error: package `~a' has no source~%") + (location-file loc) (location-line loc) + (location-column loc) (package-name p)))) (package-derivation %store p system)) - (begin - (format (current-error-port) - (_ "expression `~s' does not evaluate to a package") - exp) - (exit 1))))) + (leave (_ "expression `~s' does not evaluate to a package~%") + exp)))) ;;; 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)' | \ |