summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2014-11-07 17:44:30 +0100
committerLudovic Courtès <ludo@gnu.org>2014-11-07 17:52:11 +0100
commit15a6d433ff33c44ffef406ad77e196d6a5ef0822 (patch)
tree7b1f6774ff5c064e24b5f2dac9f83ab96a94d70b /tests
parent105c260f00479d404b140be534efb21f9f3d17fe (diff)
lint: Allow synopses that start with an abbreviation.
* guix/scripts/lint.scm (starts-with-abbreviation?): New procedure. (check-synopsis-style)[check-start-with-package-name]: Use it. * tests/lint.scm ("synopsis: start with abbreviation"): New test.
Diffstat (limited to 'tests')
-rw-r--r--tests/lint.scm10
1 files changed, 10 insertions, 0 deletions
diff --git a/tests/lint.scm b/tests/lint.scm
index 9a043c4b59..e77d443264 100644
--- a/tests/lint.scm
+++ b/tests/lint.scm
@@ -202,6 +202,16 @@
(synopsis "Arbitrary precision"))))
(check-synopsis-style pkg))))))
+(test-assert "synopsis: start with abbreviation"
+ (string-null?
+ (call-with-warnings
+ (lambda ()
+ (let ((pkg (dummy-package "uucp"
+ ;; Same problem with "APL interpreter", etc.
+ (synopsis "UUCP implementation")
+ (description "Imagine this is Taylor UUCP."))))
+ (check-synopsis-style pkg))))))
+
(test-assert "inputs: pkg-config is probably a native input"
(->bool
(string-contains