diff options
author | Ludovic Courtès <ludo@gnu.org> | 2015-04-12 23:14:19 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2015-04-13 00:02:59 +0200 |
commit | 002c57c6f7d51077e4796106177456ebb564e25a (patch) | |
tree | e0f1d13fbc7481bac013b9c1c7426dbe056e6317 /tests/lint.scm | |
parent | 866f469eddb6a28cfdbc3b2eec3d3a6a241f7168 (diff) | |
download | guix-002c57c6f7d51077e4796106177456ebb564e25a.tar.gz |
lint: Add a 'derivation' checker.
* guix/scripts/lint.scm (check-derivation): New procedure. (%checkers): Add 'derivation' checker. * tests/lint.scm ("derivation: invalid arguments"): New test.
Diffstat (limited to 'tests/lint.scm')
-rw-r--r-- | tests/lint.scm | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/tests/lint.scm b/tests/lint.scm index ab89a58ae6..2807eba1cc 100644 --- a/tests/lint.scm +++ b/tests/lint.scm @@ -319,6 +319,16 @@ requests." (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 |