aboutsummaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2016-04-27 10:05:45 +0200
committerLudovic Courtès <ludo@gnu.org>2016-04-27 11:57:48 +0200
commit20be23c3b67dd181a2c4b468626490a7eb74e492 (patch)
treedfbb7969263b5a5903cd8eb348cc38b892f4963a /tests
parent068e476f68dd6eea9cb90269997d862025fbd696 (diff)
downloadguix-20be23c3b67dd181a2c4b468626490a7eb74e492.tar
guix-20be23c3b67dd181a2c4b468626490a7eb74e492.tar.gz
lint: Report synopses/descriptions that are not strings.
Suggested by John Darrington. * guix/scripts/lint.scm (check-description-style): Emit a warning when DESCRIPTION is not a string. (check-synopsis-style): Likewise. (check-gnu-synopsis+description): Likewise. * tests/lint.scm ("description: not a string", "synopsis: not a string"): New tests.
Diffstat (limited to 'tests')
-rw-r--r--tests/lint.scm16
1 files changed, 16 insertions, 0 deletions
diff --git a/tests/lint.scm b/tests/lint.scm
index 4f0196491d..9bc42990ef 100644
--- a/tests/lint.scm
+++ b/tests/lint.scm
@@ -138,6 +138,14 @@ requests."
(define-syntax-rule (with-warnings body ...)
(call-with-warnings (lambda () body ...)))
+(test-assert "description: not a string"
+ (->bool
+ (string-contains (with-warnings
+ (let ((pkg (dummy-package "x"
+ (description 'foobar))))
+ (check-description-style pkg)))
+ "invalid description")))
+
(test-assert "description: not empty"
(->bool
(string-contains (with-warnings
@@ -191,6 +199,14 @@ requests."
"E.g. Foo, i.e. Bar resp. Baz (a.k.a. DVD)."))))
(check-description-style pkg)))))
+(test-assert "synopsis: not a string"
+ (->bool
+ (string-contains (with-warnings
+ (let ((pkg (dummy-package "x"
+ (synopsis #f))))
+ (check-synopsis-style pkg)))
+ "invalid synopsis")))
+
(test-assert "synopsis: not empty"
(->bool
(string-contains (with-warnings