mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-24 21:38:07 -05:00
lint: Check for trailing whitespace in synopsis.
* guix/lint.scm (check-synopsis-style): Check for trailing whitespace. * tests/lint.scm ("synopsis: contains trailing whitespace"): New test. Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
parent
9178566954
commit
04afb76958
2 changed files with 18 additions and 1 deletions
|
@ -478,13 +478,23 @@ (define (check-texinfo-markup synopsis)
|
|||
(G_ "Texinfo markup in synopsis is invalid")
|
||||
#:field 'synopsis)))))
|
||||
|
||||
(define (check-no-trailing-whitespace synopsis)
|
||||
"Check that SYNOPSIS doesn't have trailing whitespace."
|
||||
(if (string-suffix? " " synopsis)
|
||||
(list
|
||||
(make-warning package
|
||||
(G_ "synopsis contains trailing whitespace")
|
||||
#:field 'synopsis))
|
||||
'()))
|
||||
|
||||
(define checks
|
||||
(list check-proper-start
|
||||
check-final-period
|
||||
check-start-article
|
||||
check-start-with-package-name
|
||||
check-synopsis-length
|
||||
check-texinfo-markup))
|
||||
check-texinfo-markup
|
||||
check-no-trailing-whitespace))
|
||||
|
||||
(match (package-synopsis package)
|
||||
(""
|
||||
|
|
|
@ -271,6 +271,13 @@ (define (warning-contains? str warnings)
|
|||
(description "Imagine this is Taylor UUCP."))))
|
||||
(check-synopsis-style pkg)))
|
||||
|
||||
(test-equal "synopsis: contains trailing whitespace"
|
||||
"synopsis contains trailing whitespace"
|
||||
(single-lint-warning-message
|
||||
(let ((pkg (dummy-package "x"
|
||||
(synopsis "Whitespace "))))
|
||||
(check-synopsis-style pkg))))
|
||||
|
||||
(test-equal "name: use underscore in package name"
|
||||
"name should use hyphens instead of underscores"
|
||||
(single-lint-warning-message
|
||||
|
|
Loading…
Reference in a new issue