summaryrefslogtreecommitdiff
path: root/tests/lint.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2015-09-06 10:54:51 +0200
committerLudovic Courtès <ludo@gnu.org>2015-09-06 12:36:15 +0200
commit52b9efe337d00f2ce65c4d4ca74ccc3679e6aad8 (patch)
tree8fd36c84ea918b3f1e9d3c4995eb23205e0eeb42 /tests/lint.scm
parent718a2bde42c56a93faf182ddeb757b5cc937031e (diff)
downloadgnu-guix-52b9efe337d00f2ce65c4d4ca74ccc3679e6aad8.tar
gnu-guix-52b9efe337d00f2ce65c4d4ca74ccc3679e6aad8.tar.gz
lint: Add 'license' checker.
* guix/scripts/lint.scm (check-license): New procedure. (%checkers): Add 'license' checker. * tests/lint.scm ("license: invalid license"): New test.
Diffstat (limited to 'tests/lint.scm')
-rw-r--r--tests/lint.scm6
1 files changed, 6 insertions, 0 deletions
diff --git a/tests/lint.scm b/tests/lint.scm
index 5d56420966..ac47dbb768 100644
--- a/tests/lint.scm
+++ b/tests/lint.scm
@@ -329,6 +329,12 @@ requests."
(check-derivation pkg)))
"failed to create derivation")))
+(test-assert "license: invalid license"
+ (string-contains
+ (with-warnings
+ (check-license (dummy-package "x" (license #f))))
+ "invalid license"))
+
(test-assert "home-page: wrong home-page"
(->bool
(string-contains