aboutsummaryrefslogtreecommitdiff
path: root/tests/lint.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2015-04-12 23:14:19 +0200
committerLudovic Courtès <ludo@gnu.org>2015-04-13 00:02:59 +0200
commit002c57c6f7d51077e4796106177456ebb564e25a (patch)
treee0f1d13fbc7481bac013b9c1c7426dbe056e6317 /tests/lint.scm
parent866f469eddb6a28cfdbc3b2eec3d3a6a241f7168 (diff)
downloadguix-002c57c6f7d51077e4796106177456ebb564e25a.tar
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.scm10
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