2 files changed, 7 insertions(+), 5 deletions(-)

M guix/lint.scm
M tests/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")

@@ 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"