tribes/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-04-06 21:20:33 +02:00
Code Activity

ui: Gracefully deal with zero-output derivations.

Browse Source 
* guix/ui.scm (show-what-to-build)[built-or-substitutable?]: New
  procedure.  Check whether OUT is #f.
  Use it.
* tests/ui.scm ("show-what-to-build, zero outputs"): New test.
This commit is contained in:
Ludovic Courtès
2014-05-19 23:08:43 +02:00
parent 79b0d4e104
commit 52ddf2ae6f
2 changed files with 21 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
tests/ui.scm
View File

@@ -19,6 +19,8 @@
(define-module (test-ui)
#:use-module (guix ui)
#:use-module (guix store)
#:use-module (guix derivations)
#:use-module (srfi srfi-1)
#:use-module (srfi srfi-19)
#:use-module (srfi srfi-64))
@@ -189,6 +191,16 @@ interface, and powerful string processing.")
(lambda args
#t)))
(test-equal "show-what-to-build, zero outputs"
""
(with-store store
(let ((drv (derivation store "zero" "/bin/sh" '()
#:outputs '())))
(with-error-to-string
(lambda ()
;; This should print nothing.
(show-what-to-build store (list drv)))))))
(test-end "ui")