diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2016-04-27 10:05:45 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2016-04-27 11:57:48 +0200 |
| commit | 20be23c3b67dd181a2c4b468626490a7eb74e492 (patch) | |
| tree | dfbb7969263b5a5903cd8eb348cc38b892f4963a /tests | |
| parent | 068e476f68dd6eea9cb90269997d862025fbd696 (diff) | |
| download | guix-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.scm | 16 |
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 |