diff options
| author | Eric Bavier <bavier@member.fsf.org> | 2014-10-22 13:48:55 -0500 |
|---|---|---|
| committer | Eric Bavier <bavier@member.fsf.org> | 2014-10-26 13:03:53 -0500 |
| commit | 334c43e35462f20d75f25a05e5b66095839d81c0 (patch) | |
| tree | 2fed9865cad54bf5228d209e1c5008dd5f4402a8 /tests/lint.scm | |
| parent | 574e847b8ea692aeea051d487cc95cec1257aba7 (diff) | |
| download | guix-334c43e35462f20d75f25a05e5b66095839d81c0.tar guix-334c43e35462f20d75f25a05e5b66095839d81c0.tar.gz | |
guix: lint: Check for empty synopses and descriptions.
* guix/scripts/lint.scm (check-description-style,
check-synopsis-style): New emptiness checks.
* tests/lint.scm: Test them.
Diffstat (limited to 'tests/lint.scm')
| -rw-r--r-- | tests/lint.scm | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/tests/lint.scm b/tests/lint.scm index b013231b29..b732a1826a 100644 --- a/tests/lint.scm +++ b/tests/lint.scm @@ -45,6 +45,15 @@ (thunk)) (get-output-string port))) +(test-assert "description: not empty" + (->bool + (string-contains (call-with-warnings + (lambda () + (let ((pkg (dummy-package "x" + (description "")))) + (check-description-style pkg)))) + "description should not be empty"))) + (test-assert "description: does not start with an upper-case letter" (->bool (string-contains (call-with-warnings |