# GNU Guix --- Functional package management for GNU
# Copyright © 2013, 2014 Ludovic Courtès <ludo@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 archive' command-line utility.
#

guix archive --version

archive="t-archive-$$"
archive_alt="t-archive-alt-$$"
rm -f "$archive" "$archive_alt"

trap 'rm -f "$archive" "$archive_alt"' EXIT

guix archive --export guile-bootstrap > "$archive"
guix archive --export guile-bootstrap:out > "$archive_alt"
cmp "$archive" "$archive_alt"

guix archive --export							\
    -e '(@ (gnu packages bootstrap) %bootstrap-guile)' > "$archive_alt"
cmp "$archive" "$archive_alt"

guix archive --export `guix build guile-bootstrap` > "$archive_alt"
cmp "$archive" "$archive_alt"

# Check the exit value and stderr upon import.
guix archive --import < "$archive"
guix archive --import < "$archive" 2>&1 | grep "import.*guile-bootstrap"

if guix archive something-that-does-not-exist
then false; else true; fi

# This one must not be listed as missing.
guix build guile-bootstrap > "$archive"
guix archive --missing < "$archive"
test "`guix archive --missing < "$archive"`" = ""

# Two out of three should be listed as missing.
echo "$NIX_STORE_DIR/aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa-foo" >> "$archive"
echo "$NIX_STORE_DIR/aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa-bar" >> "$archive"
guix archive --missing < "$archive" > "$archive_alt"
echo "$NIX_STORE_DIR/aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa-foo" > "$archive"
echo "$NIX_STORE_DIR/aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa-bar" >> "$archive"
cmp "$archive" "$archive_alt"

# This is not a valid store file name, so an error.
echo something invalid > "$archive"
if guix archive --missing < "$archive"
then false; else true; fi

if echo foo | guix archive --authorize
then false; else true; fi
824a36226b352226e590b8a3'>enchant.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/enchant.scm?id=9ca3f1bc1dbdf5d6824a36226b352226e590b8a3&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2022-09-15 20:15:56 -0400'>2022-09-15</span></td><td><a href='/guix/commit/gnu/packages/enchant.scm?id=b736af1824acb941919ee671ff5a8a67fa735406'>gnu: catch-framework2: Rename variable to catch2.</a><span class='msg-avail'>...</span></td><td>Maxim Cournoyer</td></tr>
<tr><td><span title='2021-12-13 22:15:07 +0100'>2021-12-13</span></td><td><a href='/guix/commit/gnu/packages/enchant.scm?id=e3196755e60ba7f1ed9d432e73f26a85e0c8893c'>gnu: Further simplify package inputs.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2021-12-13 17:48:25 +0100'>2021-12-13</span></td><td><a href='/guix/commit/gnu/packages/enchant.scm?id=8394619baceb118df92e355377fd543bb1aa501a'>gnu: Simplify package inputs.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-12-28 16:56:47 +0200'>2020-12-28</span></td><td><a href='/guix/commit/gnu/packages/enchant.scm?id=1a86305c1353a819008a9e917445a6ccc81b8d23'>gnu: enchant: Update to 2.2.15.</a><span class='msg-avail'>...</span></td><td>Vincent Legoll</td></tr>
<tr><td><span title='2020-11-19 20:48:26 +0200'>2020-11-19</span></td><td><a href='/guix/commit/gnu/packages/enchant.scm?id=8ed4c468ab611409902c00bdf7c21fdb8d312928'>gnu: Don't append '.git' to GitHub uris.</a><span class='msg-avail'>...</span></td><td>Efraim Flashner</td></tr>
<tr><td><span title='2020-11-10 18:19:40 +0100'>2020-11-10</span></td><td><a href='/guix/commit/gnu/packages/enchant.scm?id=e68399108522cc811a06e23f57dc91d5f4adc615'>gnu: enchant: Update to 2.2.13.</a><span class='msg-avail'>...</span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2020-08-21 01:42:43 +0200'>2020-08-21</span></td><td><a href='/guix/commit/gnu/packages/enchant.scm?id=c5b20437ed52b18ffe94fe2a8336c3cf8c75fbc5'>gnu: enchant: Depend on hunspell.</a><span class='msg-avail'>...</span></td><td>Julien Lepiller</td></tr>
<tr><td><span title='2020-08-19 20:44:18 +0200'>2020-08-19</span></td><td><a href='/guix/commit/gnu/packages/enchant.scm?id=65b6682ee2004459a5001c42ce6d9d2c3614d894'>gnu: nuspell: Update to 3.1.2.</a><span class='msg-avail'>...</span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2020-08-18 22:54:05 +0200'>2020-08-18</span></td><td><a href='/guix/commit/gnu/packages/enchant.scm?id=5c5dfb6d9eaeeac529d00834f17ad1a199bee414'>gnu: Add nuspell.</a><span class='msg-avail'>...</span></td><td>Raghav Gururajan</td></tr>
<tr><td><span title='2020-03-04 22:06:23 +0100'>2020-03-04</span></td><td><a href='/guix/commit/gnu/packages/enchant.scm?id=2f894cbc6a99ed30ffd77fbcbb1ed145bc366f6f'>gnu: enchant: Update to 2.2.8.</a><span class='msg-avail'>...</span></td><td>Marius Bakke</td></tr>
<tr><td><span title='2020-01-26 18:49:51 +0100'>2020-01-26</span></td><td><a href='/guix/commit/gnu/packages/enchant.scm?id=43b4f936b907c340efc3d5a485939a4e01ef4fce'>gnu: Add python-pyenchant.</a><span class='msg-avail'>...</span></td><td>Julien Lepiller</td></tr>
<tr><td><span title='2019-09-23 17:58:32 +0200'>2019-09-23</span></td><td><a href='/guix/commit/gnu/packages/enchant.scm?id=bfe194b5331fe9a60ed9e1d373fe1de9e2606d34'>gnu: enchant: Update to 2.2.7.</a><span class='msg-avail'>...</span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2019-08-04 16:21:26 +0200'>2019-08-04</span></td><td><a href='/guix/commit/gnu/packages/enchant.scm?id=9728def2e94d23adc3961ed138e6d4e982e8dd77'>gnu: enchant: Update to 2.2.5.</a><span class='msg-avail'>...</span></td><td>Marius Bakke</td></tr>
<tr><td><span title='2019-06-23 15:05:00 +0200'>2019-06-23</span></td><td><a href='/guix/commit/gnu/packages/enchant.scm?id=4c7ca747eb63e31312e38db47c5016b4ecabe6f1'>gnu: enchant: Update to 2.2.4.</a><span class='msg-avail'>...</span></td><td>Tobias Geerinckx-Rice</td></tr>