diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2014-11-07 14:04:02 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2014-11-07 17:52:11 +0100 |
| commit | b1e666835eee2b327b4ac9a41898a2061c7ae0bb (patch) | |
| tree | 14c337efb74db3bedb16b041e4735b895adbf9b5 /tests | |
| parent | 41eb11988e16e3a17d9c570eeff769d141750b46 (diff) | |
| download | gnu-guix-b1e666835eee2b327b4ac9a41898a2061c7ae0bb.tar gnu-guix-b1e666835eee2b327b4ac9a41898a2061c7ae0bb.tar.gz | |
lint: Simplify no-warnings tests.
* tests/lint.scm ("description: may start with a digit"): Replace
(not (string-contains exp str)) with (string-null? exp).
("description: may start with lower-case package name"): Likewise.
("description: end-of-sentence detection with abbreviations"):
Likewise.
("synopsis: may start with a digit"): Likewise.
("synopsis: ends with 'etc.'"): Likewise.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/lint.scm | 65 |
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 |