diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2016-07-28 18:50:43 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2016-07-28 18:50:43 +0200 |
| commit | 6980511b7391e65a307689f90e4ef5c1979e4541 (patch) | |
| tree | 72f54adfe4e0187845882fb88cfa80c275424d9a /tests/packages.scm | |
| parent | cb55f9c652105d9ed4fc46cb902f0935fe7e35f8 (diff) | |
| download | gnu-guix-6980511b7391e65a307689f90e4ef5c1979e4541.tar gnu-guix-6980511b7391e65a307689f90e4ef5c1979e4541.tar.gz | |
packages: Add 'hidden-package'.
* guix/packages.scm (hidden-package, hidden-package?): New procedures.
* gnu/packages.scm (fold-packages): Filter out 'hidden-package?'.
* tests/packages.scm ("hidden-package"): New test.
Diffstat (limited to 'tests/packages.scm')
| -rw-r--r-- | tests/packages.scm | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/tests/packages.scm b/tests/packages.scm index fc75e38730..7c9ad05c21 100644 --- a/tests/packages.scm +++ b/tests/packages.scm @@ -79,6 +79,10 @@ (write (dummy-package "foo" (location #f))))))) +(test-assert "hidden-package" + (and (hidden-package? (hidden-package (dummy-package "foo"))) + (not (hidden-package? (dummy-package "foo"))))) + (test-assert "package-field-location" (let () (define (goto port line column) |