1 # GNU Guix --- Functional package management for GNU
2 # Copyright © 2014 Cyril Roelandt <tipecaml@gmail.com>
4 # This file is part of GNU Guix.
6 # GNU Guix is free software; you can redistribute it and/or modify it
7 # under the terms of the GNU General Public License as published by
8 # the Free Software Foundation; either version 3 of the License, or (at
9 # your option) any later version.
11 # GNU Guix is distributed in the hope that it will be useful, but
12 # WITHOUT ANY WARRANTY; without even the implied warranty of
13 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 # GNU General Public License for more details.
16 # You should have received a copy of the GNU General Public License
17 # along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
20 # Test the `guix lint' command-line utility.
25 module_dir
="t-guix-lint-$$"
27 trap "rm -rf $module_dir" EXIT
30 cat > "$module_dir/foo.scm"<<EOF
32 #:use-module (guix packages)
33 #:use-module (gnu packages base))
36 (package (inherit hello)
39 (synopsis "dummy package")
40 (description "dummy package. Only used for testing purposes.")))
43 GUIX_PACKAGE_PATH
="$module_dir"
44 export GUIX_PACKAGE_PATH
48 res
=`echo "$1" | grep -E -c "(synopsis|description) should"`
52 # Three issues with the dummy package:
53 # 1) the synopsis starts with the package name;
54 # 2) the synopsis starts with a lower-case letter;
55 # 3) the description has a single space following the end-of-sentence period.
57 out
=`guix lint dummy 2>&1`
58 if [ `grep_warning "$out"` -ne 3 ]
59 then false
; else true
; fi
61 out
=`guix lint -c synopsis dummy 2>&1`
62 if [ `grep_warning "$out"` -ne 2 ]
63 then false
; else true
; fi
65 out
=`guix lint -c description dummy 2>&1`
66 if [ `grep_warning "$out"` -ne 1 ]
67 then false
; else true
; fi
69 out
=`guix lint -c description,synopsis dummy 2>&1`
70 if [ `grep_warning "$out"` -ne 3 ]
71 then false
; else true
; fi
73 if guix lint
-c synopsis
,invalid-checker dummy
2>&1 | \
74 grep -q 'invalid-checker: invalid checker'
75 then true
; else false
; fi
77 # Make sure specifying multiple packages works.
78 guix lint
-c inputs-should-be-native dummy dummy-42 dummy