diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/lint.scm | 8 |
1 files changed, 4 insertions, 4 deletions
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 @@ | |||
| 119 | "Texinfo markup in description is invalid" | 119 | "Texinfo markup in description is invalid" |
| 120 | (single-lint-warning-message | 120 | (single-lint-warning-message |
| 121 | (check-description-style | 121 | (check-description-style |
| 122 | (dummy-package "x" (description (identity "f{oo}b@r")))))) | 122 | (dummy-package "x" (description (identity "f{oo}b@r.")))))) |
| 123 | 123 | ||
| 124 | (test-equal "description: does not start with an upper-case letter" | 124 | (test-equal "description: does not start with an upper-case letter" |
| 125 | "description should start with an upper-case letter or digit" | 125 | "description should start with an upper-case letter or digit" |
| @@ -131,7 +131,7 @@ | |||
| 131 | (test-equal "description: may start with texinfo markup" | 131 | (test-equal "description: may start with texinfo markup" |
| 132 | '() | 132 | '() |
| 133 | (check-description-style | 133 | (check-description-style |
| 134 | (dummy-package "x" (description "@emph{Maxwell Equations of Software}")))) | 134 | (dummy-package "x" (description "@emph{Maxwell Equations of Software}.")))) |
| 135 | 135 | ||
| 136 | (test-equal "description: may start with a digit" | 136 | (test-equal "description: may start with a digit" |
| 137 | '() | 137 | '() |
| @@ -187,14 +187,14 @@ | |||
| 187 | "description should not contain trademark sign '™' at 20" | 187 | "description should not contain trademark sign '™' at 20" |
| 188 | (single-lint-warning-message | 188 | (single-lint-warning-message |
| 189 | (let ((pkg (dummy-package "x" | 189 | (let ((pkg (dummy-package "x" |
| 190 | (description "Does The Right Thing™")))) | 190 | (description "Does The Right Thing™.")))) |
| 191 | (check-description-style pkg)))) | 191 | (check-description-style pkg)))) |
| 192 | 192 | ||
| 193 | (test-equal "description: may not contain trademark signs: ®" | 193 | (test-equal "description: may not contain trademark signs: ®" |
| 194 | "description should not contain trademark sign '®' at 17" | 194 | "description should not contain trademark sign '®' at 17" |
| 195 | (single-lint-warning-message | 195 | (single-lint-warning-message |
| 196 | (let ((pkg (dummy-package "x" | 196 | (let ((pkg (dummy-package "x" |
| 197 | (description "Works with Format®")))) | 197 | (description "Works with Format®.")))) |
| 198 | (check-description-style pkg)))) | 198 | (check-description-style pkg)))) |
| 199 | 199 | ||
| 200 | (test-equal "description: suggest ornament instead of quotes" | 200 | (test-equal "description: suggest ornament instead of quotes" |
