# GNU Guix --- Functional package management for GNU
# Copyright © 2014 Cyril Roelandt <tipecaml@gmail.com>
#
# This file is part of GNU Guix.
#
# GNU Guix is free software; you can redistribute it and/or modify it
# under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 3 of the License, or (at
# your option) any later version.
#
# GNU Guix is distributed in the hope that it will be useful, but
# WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.

#
# Test the `guix lint' command-line utility.
#

guix lint --version

module_dir="t-guix-lint-$$"
mkdir "$module_dir"
trap "rm -rf $module_dir" EXIT


cat > "$module_dir/foo.scm"<<EOF
(define-module (foo)
  #:use-module (guix packages)
  #:use-module (gnu packages base))

(define-public dummy
  (package (inherit hello)
    (name "dummy")
    (version "42")
    (synopsis "dummy package")
    (description "dummy package. Only used for testing purposes.")))
EOF

GUIX_PACKAGE_PATH="$module_dir"
export GUIX_PACKAGE_PATH

grep_warning ()
{
    res=`echo "$1" | grep -E -c "(synopsis|description) should"`
    echo $res
}

# Three issues with the dummy package:
# 1) the synopsis starts with the package name;
# 2) the synopsis starts with a lower-case letter;
# 3) the description has a single space following the end-of-sentence period.

out=`guix lint -c synopsis,description dummy 2>&1`
if [ `grep_warning "$out"` -ne 3 ]
then false; else true; fi

out=`guix lint -c synopsis dummy 2>&1`
if [ `grep_warning "$out"` -ne 2 ]
then false; else true; fi

out=`guix lint -c description dummy 2>&1`
if [ `grep_warning "$out"` -ne 1 ]
then false; else true; fi

out=`guix lint -c description,synopsis dummy 2>&1`
if [ `grep_warning "$out"` -ne 3 ]
then false; else true; fi

if guix lint -c synopsis,invalid-checker dummy 2>&1 | \
   grep -q 'invalid-checker: invalid checker'
then true; else false; fi

# Make sure specifying multiple packages works.
guix lint -c inputs-should-be-native dummy dummy@42 dummy
/guix/log/gnu/packages?id=6bb60ba1ba7607ec65b2e14ce58c6fa5017265c3'>packages</a>/<a href='/guix/log/gnu/packages/bittorrent.scm?id=6bb60ba1ba7607ec65b2e14ce58c6fa5017265c3'>bittorrent.scm</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/gnu/packages/bittorrent.scm?id=6bb60ba1ba7607ec65b2e14ce58c6fa5017265c3&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2019-05-11 19:55:38 +0200'>2019-05-11</span></td><td><a href='/guix/commit/gnu/packages/bittorrent.scm?id=6cc9533eb12601dd065bceafc8806e6464329754'>gnu: qbittorrent: Update to 4.1.6.</a><span class='msg-avail'>...</span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2019-05-09 13:43:03 +0200'>2019-05-09</span></td><td><a href='/guix/commit/gnu/packages/bittorrent.scm?id=3fde051bfdf2418b2dd72b416a8cc241ab44a24f'>gnu: libtorrent-rasterbar: Update to 1.1.13.</a><span class='msg-avail'>...</span></td><td>Marius Bakke</td></tr>
<tr><td><span title='2019-02-17 18:43:21 +0100'>2019-02-17</span></td><td><a href='/guix/commit/gnu/packages/bittorrent.scm?id=0748a7b2d758c7ce1437389a1d89e1a3b443ab74'>gnu: qbittorrent: Don't use unstable tarball.</a><span class='msg-avail'>...</span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2019-02-17 18:43:21 +0100'>2019-02-17</span></td><td><a href='/guix/commit/gnu/packages/bittorrent.scm?id=cdda263be1205b7786726e331a67584ac26a81b3'>gnu: qbittorrent: Update to 4.1.5.</a><span class='msg-avail'>...</span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2019-01-16 16:08:22 +0100'>2019-01-16</span></td><td><a href='/guix/commit/gnu/packages/bittorrent.scm?id=cd0322a3efd96577de9ab35e4432d1ae399257c8'>gnu: Move sqlite to separate module.</a><span class='msg-avail'>...</span></td><td>Ricardo Wurmus</td></tr>
<tr><td><span title='2019-01-15 14:46:44 +0100'>2019-01-15</span></td><td><a href='/guix/commit/gnu/packages/bittorrent.scm?id=44d10b1f722856ab8e9b942804aa7ef33e2ef739'>gnu: Separate Python core packages from the rest.</a><span class='msg-avail'>...</span></td><td>Ricardo Wurmus</td></tr>
<tr><td><span title='2019-01-09 15:38:19 -0500'>2019-01-09</span></td><td><a href='/guix/commit/gnu/packages/bittorrent.scm?id=e82c98abe93c749296c831691c7c67c736f0807f'>gnu: aria2: Fix CVE-2019-3500.</a><span class='msg-avail'>...</span></td><td>Leo Famulari</td></tr>
<tr><td><span title='2018-11-29 22:43:47 +0100'>2018-11-29</span></td><td><a href='/guix/commit/gnu/packages/bittorrent.scm?id=4342a046c9cd7ff493e3f460a68a234840c38767'>gnu: mktorrent: Fetch sources from git.</a><span class='msg-avail'>...</span></td><td>Ricardo Wurmus</td></tr>
<tr><td><span title='2018-11-29 22:43:47 +0100'>2018-11-29</span></td><td><a href='/guix/commit/gnu/packages/bittorrent.scm?id=8322ecb08075bd8e3f5d881022a9b51f2388e521'>gnu: transmission-remote-cli: Fetch sources from git.</a><span class='msg-avail'>...</span></td><td>Ricardo Wurmus</td></tr>
<tr><td><span title='2018-11-24 01:50:43 +0100'>2018-11-24</span></td><td><a href='/guix/commit/gnu/packages/bittorrent.scm?id=43bcf392a7635ec0d1dc09c3f933984d8d96ce61'>gnu: libtorrent-rasterbar: Update to 1.1.11.</a><span class='msg-avail'>...</span></td><td>Marius Bakke</td></tr>
<tr><td><span title='2018-11-24 01:50:43 +0100'>2018-11-24</span></td><td><a href='/guix/commit/gnu/packages/bittorrent.scm?id=c2be790fb114ae516718a1fce0abd285611c9c87'>gnu: Add deluge.</a><span class='msg-avail'>...</span></td><td>Nam Nguyen</td></tr>
<tr><td><span title='2018-11-24 01:50:43 +0100'>2018-11-24</span></td><td><a href='/guix/commit/gnu/packages/bittorrent.scm?id=39da44c2c0f78730a08bd9803bd681209124b78f'>gnu: libtorrent-rasterbar: Compile Python bindings in C++11 mode.</a><span class='msg-avail'>...</span></td><td>Nam Nguyen</td></tr>
<tr><td><span title='2018-09-20 15:31:17 -0400'>2018-09-20</span></td><td><a href='/guix/commit/gnu/packages/bittorrent.scm?id=ea2364621a57f4797a512caa53cbf0d4475c1c90'>gnu: qbittorrent: Update to 4.1.3.</a><span class='msg-avail'>...</span></td><td>fis trivial</td></tr>
<tr><td><span title='2018-08-15 15:26:06 -0400'>2018-08-15</span></td><td><a href='/guix/commit/gnu/packages/bittorrent.scm?id=a1225ae86706b52c022b770cb7be1a00e1cec819'>gnu: tremc: Update URLs.</a><span class='msg-avail'>...</span></td><td>Leo Famulari</td></tr>
<tr><td><span title='2018-08-15 20:10:21 +0200'>2018-08-15</span></td><td><a href='/guix/commit/gnu/packages/bittorrent.scm?id=96e2ecb7961dce9684e5adad2639db2aac66f51b'>gnu: tremc: Update to 0.9.1.</a><span class='msg-avail'>...</span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2018-08-15 20:10:21 +0200'>2018-08-15</span></td><td><a href='/guix/commit/gnu/packages/bittorrent.scm?id=591ee071c66e676dd0f8ff3e836124daa1a7b7f7'>gnu: tremc: Fix shebang.</a><span class='msg-avail'>...</span></td><td>Tobias Geerinckx-Rice</td></tr>