aboutsummaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2016-07-28 18:50:43 +0200
committerLudovic Courtès <ludo@gnu.org>2016-07-28 18:50:43 +0200
commit6980511b7391e65a307689f90e4ef5c1979e4541 (patch)
tree72f54adfe4e0187845882fb88cfa80c275424d9a /tests
parentcb55f9c652105d9ed4fc46cb902f0935fe7e35f8 (diff)
downloadguix-6980511b7391e65a307689f90e4ef5c1979e4541.tar.gz
guix-6980511b7391e65a307689f90e4ef5c1979e4541.zip
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')
-rw-r--r--tests/packages.scm4
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)