# GNU Guix --- Functional package management for GNU
# Copyright © 2013, 2014, 2016 Ludovic Courtès <ludo@gnu.org>
# Copyright © 2016 Jan Nieuwenhuizen <janneke@gnu.org>
#
# 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 hash' command-line utility.
#

guix hash --version

tmpdir="guix-hash-$$"
trap 'rm -rf "$tmpdir"' EXIT

test `guix hash /dev/null` = 0mdqa9w1p6cmli6976v4wi0sw9r4p5prkj7lzfd1877wk11c9c73
test `echo -n | guix hash -` = 0mdqa9w1p6cmli6976v4wi0sw9r4p5prkj7lzfd1877wk11c9c73
test `guix hash -f nix-base32 /dev/null` = 0mdqa9w1p6cmli6976v4wi0sw9r4p5prkj7lzfd1877wk11c9c73
test `guix hash -f hex /dev/null` = e3b0c44298fc1c149afbf4c8996fb92427ae41e4649b934ca495991b7852b855
test `guix hash -f base32 /dev/null` = 4oymiquy7qobjgx36tejs35zeqt24qpemsnzgtfeswmrw6csxbkq

mkdir "$tmpdir"
echo -n executable > "$tmpdir/exe"
chmod +x "$tmpdir/exe"
( cd "$tmpdir" ; ln -s exe symlink )
mkdir "$tmpdir/subdir"

test `guix hash -r "$tmpdir"` = 10k1lw41wyrjf9mxydi0is5nkpynlsvgslinics4ppir13g7d74p

# Without '-r', this should fail.
if guix hash "$tmpdir"
then false; else true; fi

# This should fail because /dev/null is a character device, which
# the archive format doesn't support.
if guix hash -r /dev/null
then false; else true; fi

# Adding a .git directory
mkdir "$tmpdir/.git"
touch "$tmpdir/.git/foo"

# ...changes the hash
test `guix hash -r $tmpdir` = 0a50z04zyzf7pidwxv0nwbj82pgzbrhdy9562kncnvkcfvb48m59

# ...but remains the same when using `-x'
test `guix hash -r $tmpdir -x` = 10k1lw41wyrjf9mxydi0is5nkpynlsvgslinics4ppir13g7d74p

# Without '-r', this should fail.
if guix hash "$tmpdir"
then false; else true; fi

ages?id=3dee2299aefaf954ce38073a8dc385ab21b559c2'>packages</a>/<a href='/guix/log/gnu/packages/prolog.scm?id=3dee2299aefaf954ce38073a8dc385ab21b559c2'>prolog.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/prolog.scm?id=3dee2299aefaf954ce38073a8dc385ab21b559c2&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2020-10-22 21:38:14 -0500'>2020-10-22</span></td><td><a href='/guix/commit/gnu/packages/prolog.scm?id=88d19248b9c03614bfaf9baf3c6b7b880075d35c'>gnu: swi-prolog: Update to 8.3.10.</a><span class='msg-avail'>...</span></td><td>Brett Gilio</td></tr>
<tr><td><span title='2020-10-16 21:03:20 -0500'>2020-10-16</span></td><td><a href='/guix/commit/gnu/packages/prolog.scm?id=4e1380791af07d82481d2b7a8c43afac4cd31855'>gnu: swi-prolog: Update to 8.3.9.</a><span class='msg-avail'>...</span></td><td>Brett Gilio</td></tr>
<tr><td><span title='2020-09-30 09:28:26 +0300'>2020-09-30</span></td><td><a href='/guix/commit/gnu/packages/prolog.scm?id=1628d57bb5c6ab30a04202c229de642b94faac85'>gnu: Fix package references.</a><span class='msg-avail'>...</span></td><td>Efraim Flashner</td></tr>
<tr><td><span title='2020-08-07 20:56:47 -0500'>2020-08-07</span></td><td><a href='/guix/commit/gnu/packages/prolog.scm?id=612ed88b10d21d27473861340144cc2e98d3b2ca'>gnu: swi-prolog: Update to 8.3.5.</a><span class='msg-avail'>...</span></td><td>Brett Gilio</td></tr>
<tr><td><span title='2020-07-18 23:38:10 -0500'>2020-07-18</span></td><td><a href='/guix/commit/gnu/packages/prolog.scm?id=d37eb6bb20069464e3a82d15a350084b457c12f6'>gnu: swi-prolog: Update to 8.3.4.</a><span class='msg-avail'>...</span></td><td>Brett Gilio</td></tr>
<tr><td><span title='2020-07-12 23:08:15 +0200'>2020-07-12</span></td><td><a href='/guix/commit/gnu/packages/prolog.scm?id=b0e7b6992f3f845e83cfbca4d700b51dba50b4d5'>gnu: Remove ".git" from "https://github/…/….git".</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-02-03 15:45:44 +0100'>2020-02-03</span></td><td><a href='/guix/commit/gnu/packages/prolog.scm?id=52665d2b6bd709ba46c1e364a6d6164f5f4824ff'>Merge branch 'staging' into core-updates</a></td><td>Marius Bakke</td></tr>
<tr><td><span title='2020-01-24 16:31:13 -0600'>2020-01-24</span></td><td><a href='/guix/commit/gnu/packages/prolog.scm?id=2aa1e76519199d800a334e7ef8883be34ea3dd62'>gnu: swi-prolog: Update to 8.1.21.</a><span class='msg-avail'>...</span></td><td>Brett Gilio</td></tr>
<tr><td><span title='2020-01-22 22:12:34 +0100'>2020-01-22</span></td><td><a href='/guix/commit/gnu/packages/prolog.scm?id=4bd428a7ce382f623784a3ff8186aadc3cebca91'>gnu: Replace uses of 'libjpeg' with 'libjpeg-turbo'.</a><span class='msg-avail'>...</span></td><td>Marius Bakke</td></tr>
<tr><td><span title='2020-01-04 14:52:22 -0600'>2020-01-04</span></td><td><a href='/guix/commit/gnu/packages/prolog.scm?id=bcd47c67b04c94e33631fd9a71fd907a9eed379b'>gnu: swi-prolog: Update to 8.1.20.</a><span class='msg-avail'>...</span></td><td>Brett Gilio</td></tr>
<tr><td><span title='2020-01-04 14:51:44 -0600'>2020-01-04</span></td><td><a href='/guix/commit/gnu/packages/prolog.scm?id=235c67341b5373f7d21edfd56a2ff19da4a25efb'>gnu: swi-prolog: Modify documentation installation.</a><span class='msg-avail'>...</span></td><td>Brett Gilio</td></tr>
<tr><td><span title='2020-01-04 14:50:52 -0600'>2020-01-04</span></td><td><a href='/guix/commit/gnu/packages/prolog.scm?id=5a92e7c9542f60cfe9d932833bbe61d0af7a2860'>gnu: swi-prolog: Enable tests.</a><span class='msg-avail'>...</span></td><td>Brett Gilio</td></tr>
<tr><td><span title='2020-01-03 21:44:18 -0600'>2020-01-03</span></td><td><a href='/guix/commit/gnu/packages/prolog.scm?id=7eef98484c4eea2ce92fd53a86a001f006a78c16'>gnu: Add swi-prolog.</a><span class='msg-avail'>...</span></td><td>Brett Gilio</td></tr>
<tr><td><span title='2020-01-03 21:43:34 -0600'>2020-01-03</span></td><td><a href='/guix/commit/gnu/packages/prolog.scm?id=e4ed9929532794b5b52c795b7356ff7413829eed'>gnu: gprolog: Use license prefix.</a><span class='msg-avail'>...</span></td><td>Brett Gilio</td></tr>
<tr><td><span title='2020-01-03 20:15:44 -0600'>2020-01-03</span></td><td><a href='/guix/commit/gnu/packages/prolog.scm?id=a06a4f918243dc784f9089d60690559b72a4e308'>Revert "gnu: Add swi-prolog."</a><span class='msg-avail'>...</span></td><td>Brett Gilio</td></tr>
<tr><td><span title='2020-01-03 19:59:00 -0600'>2020-01-03</span></td><td><a href='/guix/commit/gnu/packages/prolog.scm?id=3f37f3909712eb7269b6e8184c0d61bfc61b67f9'>gnu: Add swi-prolog.</a><span class='msg-avail'>...</span></td><td>Brett Gilio</td></tr>
<tr><td><span title='2020-01-03 19:53:04 -0600'>2020-01-03</span></td><td><a href='/guix/commit/gnu/packages/prolog.scm?id=d98e64b4e5b46a67b582df5032647bb169427d6d'>gnu: Rename module gprolog to prolog.</a><span class='msg-avail'>...</span></td><td>Brett Gilio</td></tr>