summaryrefslogtreecommitdiff
path: root/tests/lint.scm
diff options
context:
space:
mode:
authorEric Bavier <bavier@member.fsf.org>2014-10-22 13:48:55 -0500
committerEric Bavier <bavier@member.fsf.org>2014-10-26 13:03:53 -0500
commit334c43e35462f20d75f25a05e5b66095839d81c0 (patch)
tree2fed9865cad54bf5228d209e1c5008dd5f4402a8 /tests/lint.scm
parent574e847b8ea692aeea051d487cc95cec1257aba7 (diff)
downloadpatches-334c43e35462f20d75f25a05e5b66095839d81c0.tar
patches-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.scm9
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