aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--tests/lint.scm65
1 files changed, 30 insertions, 35 deletions
diff --git a/tests/lint.scm b/tests/lint.scm
index 2061cc18cb..2f62adc39f 100644
--- a/tests/lint.scm
+++ b/tests/lint.scm
@@ -64,22 +64,20 @@
"description should start with an upper-case letter")))
(test-assert "description: may start with a digit"
- (not
- (string-contains (call-with-warnings
- (lambda ()
- (let ((pkg (dummy-package "x"
- (description "2-component library."))))
- (check-description-style pkg))))
- "description should start with an upper-case letter")))
+ (string-null?
+ (call-with-warnings
+ (lambda ()
+ (let ((pkg (dummy-package "x"
+ (description "2-component library."))))
+ (check-description-style pkg))))))
(test-assert "description: may start with lower-case package name"
- (not
- (string-contains (call-with-warnings
- (lambda ()
- (let ((pkg (dummy-package "x"
- (description "x is a dummy package."))))
- (check-description-style pkg))))
- "description should start with an upper-case letter")))
+ (string-null?
+ (call-with-warnings
+ (lambda ()
+ (let ((pkg (dummy-package "x"
+ (description "x is a dummy package."))))
+ (check-description-style pkg))))))
(test-assert "description: two spaces after end of sentence"
(->bool
@@ -91,14 +89,13 @@
"sentences in description should be followed by two spaces")))
(test-assert "description: end-of-sentence detection with abbreviations"
- (not
- (string-contains (call-with-warnings
- (lambda ()
- (let ((pkg (dummy-package "x"
- (description
- "E.g. Foo, i.e. Bar resp. Baz (a.k.a. DVD)."))))
- (check-description-style pkg))))
- "sentences in description should be followed by two spaces")))
+ (string-null?
+ (call-with-warnings
+ (lambda ()
+ (let ((pkg (dummy-package "x"
+ (description
+ "E.g. Foo, i.e. Bar resp. Baz (a.k.a. DVD)."))))
+ (check-description-style pkg))))))
(test-assert "synopsis: not empty"
(->bool
@@ -119,13 +116,12 @@
"synopsis should start with an upper-case letter")))
(test-assert "synopsis: may start with a digit"
- (not
- (string-contains (call-with-warnings
- (lambda ()
- (let ((pkg (dummy-package "x"
- (synopsis "5-dimensional frobnicator"))))
- (check-synopsis-style pkg))))
- "synopsis should start with an upper-case letter")))
+ (string-null?
+ (call-with-warnings
+ (lambda ()
+ (let ((pkg (dummy-package "x"
+ (synopsis "5-dimensional frobnicator"))))
+ (check-synopsis-style pkg))))))
(test-assert "synopsis: ends with a period"
(->bool
@@ -137,12 +133,11 @@
"no period allowed at the end of the synopsis")))
(test-assert "synopsis: ends with 'etc.'"
- (->bool
- (string-null? (call-with-warnings
- (lambda ()
- (let ((pkg (dummy-package "x"
- (synopsis "Foo, bar, etc."))))
- (check-synopsis-style pkg)))))))
+ (string-null? (call-with-warnings
+ (lambda ()
+ (let ((pkg (dummy-package "x"
+ (synopsis "Foo, bar, etc."))))
+ (check-synopsis-style pkg))))))
(test-assert "synopsis: starts with 'A'"
(->bool