From 334c43e35462f20d75f25a05e5b66095839d81c0 Mon Sep 17 00:00:00 2001 From: Eric Bavier Date: Wed, 22 Oct 2014 13:48:55 -0500 Subject: guix: lint: Check for empty synopses and descriptions. * guix/scripts/lint.scm (check-description-style, check-synopsis-style): New emptiness checks. * tests/lint.scm: Test them. --- tests/lint.scm | 9 +++++++++ 1 file changed, 9 insertions(+) (limited to 'tests') diff --git a/tests/lint.scm b/tests/lint.scm index b013231b29..b732a1826a 100644 --- a/tests/lint.scm +++ b/tests/lint.scm @@ -45,6 +45,15 @@ (thunk)) (get-output-string port))) +(test-assert "description: not empty" + (->bool + (string-contains (call-with-warnings + (lambda () + (let ((pkg (dummy-package "x" + (description "")))) + (check-description-style pkg)))) + "description should not be empty"))) + (test-assert "description: does not start with an upper-case letter" (->bool (string-contains (call-with-warnings -- cgit v1.2.3