diff options
| -rw-r--r-- | guix/lint.scm | 4 | ||||
| -rw-r--r-- | tests/lint.scm | 8 |
2 files changed, 7 insertions, 5 deletions
diff --git a/guix/lint.scm b/guix/lint.scm index ad639a63f75..a111a854ee6 100644 --- a/guix/lint.scm +++ b/guix/lint.scm @@ -398,7 +398,9 @@ superfluous when building natively and incorrect when cross-compiling." (define (check-ends-with-period description) "Checks that a description field ends with a period." - (if (not (string-suffix? "." description)) + (if (not (or (string-null? description) ;check-not-empty + (string-suffix? " " description) ;check-no-trailing-whitespace + (string-suffix? "." description))) (list (make-warning package (G_ "description should end with a period") diff --git a/tests/lint.scm b/tests/lint.scm index f712c38c3fd..1f38f931c8a 100644 --- a/tests/lint.scm +++ b/tests/lint.scm @@ -119,7 +119,7 @@ "Texinfo markup in description is invalid" (single-lint-warning-message (check-description-style - (dummy-package "x" (description (identity "f{oo}b@r")))))) + (dummy-package "x" (description (identity "f{oo}b@r.")))))) (test-equal "description: does not start with an upper-case letter" "description should start with an upper-case letter or digit" @@ -131,7 +131,7 @@ (test-equal "description: may start with texinfo markup" '() (check-description-style - (dummy-package "x" (description "@emph{Maxwell Equations of Software}")))) + (dummy-package "x" (description "@emph{Maxwell Equations of Software}.")))) (test-equal "description: may start with a digit" '() @@ -187,14 +187,14 @@ "description should not contain trademark sign '™' at 20" (single-lint-warning-message (let ((pkg (dummy-package "x" - (description "Does The Right Thing™")))) + (description "Does The Right Thing™.")))) (check-description-style pkg)))) (test-equal "description: may not contain trademark signs: ®" "description should not contain trademark sign '®' at 17" (single-lint-warning-message (let ((pkg (dummy-package "x" - (description "Works with Format®")))) + (description "Works with Format®.")))) (check-description-style pkg)))) (test-equal "description: suggest ornament instead of quotes" |