summaryrefslogtreecommitdiff
path: root/tests/lint.scm
diff options
context:
space:
mode:
authorMathieu Lirzin <mthl@openmailbox.org>2015-09-15 17:38:56 +0200
committerMathieu Lirzin <mthl@openmailbox.org>2015-09-15 19:01:23 +0200
commit3500e659f114e0e8213f2b8340128f66251bd7b4 (patch)
tree56e7c515448a189cc60ba9e6f979bd405e01d1a4 /tests/lint.scm
parent83d95c7b3686a57f5c871372051203a1b2182d99 (diff)
downloadgnu-guix-3500e659f114e0e8213f2b8340128f66251bd7b4.tar
gnu-guix-3500e659f114e0e8213f2b8340128f66251bd7b4.tar.gz
lint: Add 'check-texinfo-markup' checker.
* guix/script/lint.scm (check-description-style): Check for invalid Texinfo markup. * tests/lint.scm: Test it.
Diffstat (limited to 'tests/lint.scm')
-rw-r--r--tests/lint.scm8
1 files changed, 8 insertions, 0 deletions
diff --git a/tests/lint.scm b/tests/lint.scm
index 76040c1f3e..9634fb68e7 100644
--- a/tests/lint.scm
+++ b/tests/lint.scm
@@ -2,6 +2,7 @@
;;; Copyright © 2012, 2013 Cyril Roelandt <tipecaml@gmail.com>
;;; Copyright © 2014, 2015 Eric Bavier <bavier@member.fsf.org>
;;; Copyright © 2014, 2015 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright © 2015 Mathieu Lirzin <mthl@openmailbox.org>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -142,6 +143,13 @@ requests."
(check-description-style pkg)))
"description should not be empty")))
+(test-assert "description: valid Texinfo markup"
+ (->bool
+ (string-contains
+ (with-warnings
+ (check-description-style (dummy-package "x" (description "f{oo}b@r"))))
+ "Texinfo markup in description is invalid")))
+
(test-assert "description: does not start with an upper-case letter"
(->bool
(string-contains (with-warnings