# GNU Guix --- Functional package management for GNU
# Copyright © 2013, 2014, 2016, 2020 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
test `guix hash -H sha512 -f hex /dev/null` = cf83e1357eefb8bdf1542850d66d8007d620e4050b5715dc83f4a921d36ce9ce47d0d13c5d85f2b0ff8318d2877eec2f63b931bd47417a81a538327af927da3e
test `guix hash -H sha1 -f base64 /dev/null` = "2jmj7l5rSw0yVb/vlWAYkK/YBwk="

! guix hash -H abcd1234 /dev/null

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.
! guix hash "$tmpdir"

# This should fail because /dev/null is a character device, which
# the archive format doesn't support.
! guix hash -r /dev/null

# 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.
! guix hash "$tmpdir"

ist nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/gnu/build/activation.scm?id=00262db23adb2666fa6d00d40e53f2145be26026&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2018-11-18 23:37:25 +0100'>2018-11-18</span></td><td><a href='/guix/commit/gnu/build/activation.scm?id=b297934437932de730432629b361fcb422accbb7'>activation: Aways pass '-d HOME' to 'useradd'.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2018-03-27 14:51:44 +0200'>2018-03-27</span></td><td><a href='/guix/commit/gnu/build/activation.scm?id=82b71ac366ef154400653d264b46b7aa3520f393'>activation: Pass '-d HOME' to 'usermod'.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2017-10-08 21:27:48 +0200'>2017-10-08</span></td><td><a href='/guix/commit/gnu/build/activation.scm?id=5e66574a128937e7f2fcf146d146225703ccfd5d'>activation: Do not create setuid binaries in the store [security fix].</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2017-08-03 00:35:59 +0200'>2017-08-03</span></td><td><a href='/guix/commit/gnu/build/activation.scm?id=49962b15a1c4e72a55b6cf273806d203906de2ed'>activation: Make sure /etc exists.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2017-05-30 18:08:37 +0200'>2017-05-30</span></td><td><a href='/guix/commit/gnu/build/activation.scm?id=41db5a756369f5b14d1e67a523ee0940cad56744'>activation: Change permissions on /root to #o700.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2017-05-18 10:55:16 +0200'>2017-05-18</span></td><td><a href='/guix/commit/gnu/build/activation.scm?id=41f76ae08a7a830cdeb1eaac271d714cb58fbce3'>services: user-homes: Do not create home directories marked as no-create.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2017-02-10 17:40:25 +0100'>2017-02-10</span></td><td><a href='/guix/commit/gnu/build/activation.scm?id=768f0ac9dd9993827430d62d0f72a5020f476892'>Merge branch 'master' into core-updates</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2017-02-08 16:17:05 +0100'>2017-02-08</span></td><td><a href='/guix/commit/gnu/build/activation.scm?id=387e175492f960d7d86f34f3b2e43938fa72dbf3'>services: Add 'special-files-service-type'.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2017-02-04 02:13:43 +0100'>2017-02-04</span></td><td><a href='/guix/commit/gnu/build/activation.scm?id=cf98d342b0899be3b72438d2dd5a2350f0f78f33'>activation: Set the right owner for home directories.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2017-02-02 10:52:24 -0500'>2017-02-02</span></td><td><a href='/guix/commit/gnu/build/activation.scm?id=e8c83d04e176f205b30b3d470f22ee5e1c686331'>Merge branch 'master' into core-updates</a></td><td>Leo Famulari</td></tr>
<tr><td><span title='2017-02-01 12:36:41 +0100'>2017-02-01</span></td><td><a href='/guix/commit/gnu/build/activation.scm?id=ae763b5b0b7d5e7316a3d0efe991fe8ab2261031'>system: Create home directories once 'file-systems' is up.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2017-01-26 22:19:16 +0100'>2017-01-26</span></td><td><a href='/guix/commit/gnu/build/activation.scm?id=5a64a791317d98171435eff541a835ab0d3f498c'>utils: Add helper method to make files writable.</a><span class='msg-avail'>...</span></td><td>Marius Bakke</td></tr>
<tr><td><span title='2016-09-06 14:41:48 -0400'>2016-09-06</span></td><td><a href='/guix/commit/gnu/build/activation.scm?id=a7199b7d994433eaabb989690887b921d053d761'>activation: Don't fail if /var/lib exists.</a><span class='msg-avail'>...</span></td><td>Leo Famulari</td></tr>
<tr><td><span title='2016-09-06 17:48:59 +0200'>2016-09-06</span></td><td><a href='/guix/commit/gnu/build/activation.scm?id=6526d43ea4fb0cd151a0d5e9a072c651c1c963d1'>activation: Allow home directories to be created under /var/lib.</a><span class='msg-avail'>...</span></td><td>David Craven</td></tr>
<tr><td><span title='2016-08-28 15:11:18 +0200'>2016-08-28</span></td><td><a href='/guix/commit/gnu/build/activation.scm?id=eb56ee027b4c6b5682f69fa885d16e55c4495bd8'>system: Add 'create-home-directory?' field to &lt;user-account&gt;.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>