diff options
author | Mark H Weaver <mhw@netris.org> | 2015-04-17 22:06:05 -0400 |
---|---|---|
committer | Mark H Weaver <mhw@netris.org> | 2015-04-17 22:06:05 -0400 |
commit | 334345d9db53326fa062298e2372d6c33123949a (patch) | |
tree | 50774c171f1a348bd7de8e9a447bad2a14a9dffb /tests/lint.scm | |
parent | 8d7dc5d9dbf009009d33e21598f92c4685965cd5 (diff) | |
parent | 09dd019490e4a269b0a2d9512a07688f8ee657d3 (diff) |
Merge branch 'core-updates'
Diffstat (limited to 'tests/lint.scm')
-rw-r--r-- | tests/lint.scm | 27 |
1 files changed, 26 insertions, 1 deletions
diff --git a/tests/lint.scm b/tests/lint.scm index 2312b80934..2807eba1cc 100644 --- a/tests/lint.scm +++ b/tests/lint.scm @@ -301,9 +301,34 @@ requests." (uri "someurl") (sha256 "somesha") (patches (list "/path/to/y.patch"))))))) - (check-patches pkg))) + (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 "derivation: invalid arguments" + (->bool + (string-contains + (with-warnings + (let ((pkg (dummy-package "x" + (arguments + '(#:imported-modules (invalid-module)))))) + (check-derivation pkg))) + "failed to create derivation"))) + (test-assert "home-page: wrong home-page" (->bool (string-contains |