diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2015-04-10 10:27:26 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2015-04-10 10:27:46 +0200 |
| commit | b210b35d61e41ab5c3ad923eacc8ecbd58d3edca (patch) | |
| tree | acf6259a6c223f49941c6f909b2a05989b843b92 /tests/lint.scm | |
| parent | 56b1b74c903c17b03ef5b0052a1144bb1e55685f (diff) | |
| download | guix-b210b35d61e41ab5c3ad923eacc8ecbd58d3edca.tar guix-b210b35d61e41ab5c3ad923eacc8ecbd58d3edca.tar.gz | |
lint: Report patches that cannot be found.
* guix/scripts/lint.scm (check-patch-file-names): Wrap body in 'guard'.
* tests/lint.scm ("patches: not found"): New test.
Diffstat (limited to 'tests/lint.scm')
| -rw-r--r-- | tests/lint.scm | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/tests/lint.scm b/tests/lint.scm index 047f2786e0..ab89a58ae6 100644 --- a/tests/lint.scm +++ b/tests/lint.scm @@ -304,6 +304,21 @@ requests." (check-patch-file-names pkg))) "file names of patches should start with the package name"))) +(test-assert "patches: not found" + (->bool + (string-contains + (with-warnings + (let ((pkg (dummy-package "x" + (source + (origin + (method url-fetch) + (uri "someurl") + (sha256 "somesha") + (patches + (list (search-patch "this-patch-does-not-exist!")))))))) + (check-patch-file-names pkg))) + "patch not found"))) + (test-assert "home-page: wrong home-page" (->bool (string-contains |