# 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
1-23 10:24:28 +0100'>2021-11-23</span></td><td><a href='/guix/commit/NEWS?id=daf7b5ecef8de0e536ffd8d2957f022d010767a8'>Update NEWS.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2021-09-23 20:02:23 +0200'>2021-09-23</span></td><td><a href='/guix/commit/NEWS?id=ff775440218c4f576d51aa01ce419b1fb786170a'>Update NEWS.</a><span class='msg-avail'>...</span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2021-09-18 23:08:32 +0200'>2021-09-18</span></td><td><a href='/guix/commit/NEWS?id=eb6593cec4b0cedef44bf156e2e6727ead82006c'>Update NEWS.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2021-07-07 23:54:20 -0400'>2021-07-07</span></td><td><a href='/guix/commit/NEWS?id=4cbe0127a668cbcc64087c5d311308b59d39b104'>guix-install.sh: Prompt for configuring substitutes discovery.</a><span class='msg-avail'>...</span></td><td>Maxim Cournoyer</td></tr>
<tr><td><span title='2021-06-29 14:53:21 -0400'>2021-06-29</span></td><td><a href='/guix/commit/NEWS?id=82daab42811a2e3c7684ebdf12af75ff0fa67b99'>pack: Add support for the deb format.</a><span class='msg-avail'>...</span></td><td>Maxim Cournoyer</td></tr>
<tr><td><span title='2021-05-10 13:48:30 -0400'>2021-05-10</span></td><td><a href='/guix/commit/NEWS?id=80dc6ad4a89b68b5e837fc22c9b1322b86527bef'>Update NEWS.</a></td><td>Maxim Cournoyer</td></tr>
<tr><td><span title='2021-05-10 11:21:02 -0400'>2021-05-10</span></td><td><a href='/guix/commit/NEWS?id=7418a200742768d21b567916b25e4d3351472230'>Update NEWS.</a></td><td>Leo Famulari</td></tr>
<tr><td><span title='2021-05-10 11:42:03 +0200'>2021-05-10</span></td><td><a href='/guix/commit/NEWS?id=3a0fcaa0fe721792d1543e863c3fba805376bdac'>Update NEWS.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2021-05-04 16:57:05 +0200'>2021-05-04</span></td><td><a href='/guix/commit/NEWS?id=b37ab28401c55adbb8e36ea2931849636752524d'>Update NEWS.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-11-22 20:27:28 +0100'>2020-11-22</span></td><td><a href='/guix/commit/NEWS?id=a099685659b4bfa6b3218f84953cbb7ff9e88063'>Update NEWS.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-11-13 09:13:56 +0100'>2020-11-13</span></td><td><a href='/guix/commit/NEWS?id=1e272d42f6217b70c9801b93e46b144e9ab27664'>Update NEWS.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-11-09 23:27:09 +0100'>2020-11-09</span></td><td><a href='/guix/commit/NEWS?id=b51da3ccef74e5842b87e39eea839e36831e844e'>Update NEWS.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-11-07 19:36:10 +0100'>2020-11-07</span></td><td><a href='/guix/commit/NEWS?id=afa77bd2287f303aefdd00193309ccf57f6dcd93'>Update NEWS.</a></td><td>Mathieu Othacehe</td></tr>
<tr><td><span title='2020-11-07 16:14:03 +0100'>2020-11-07</span></td><td><a href='/guix/commit/NEWS?id=e8b9b0fae076a86e2be1dcb87b666d4490bac0aa'>Update NEWS.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-11-05 23:27:22 +0100'>2020-11-05</span></td><td><a href='/guix/commit/NEWS?id=51916455d0bb283489162ef84afc8145b28b012c'>Update NEWS.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-04-15 00:02:23 +0200'>2020-04-15</span></td><td><a href='/guix/commit/NEWS?id=d62c9b2671be55ae0305bebfda17b595f33797f2'>Update NEWS.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-04-12 17:05:21 +0200'>2020-04-12</span></td><td><a href='/guix/commit/NEWS?id=6945c43754308f64ad177fd29fa515959243f155'>Update NEWS.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-04-09 22:56:56 +0200'>2020-04-09</span></td><td><a href='/guix/commit/NEWS?id=f9adf3559543bdbcecad45280c9c626b63e84e95'>Update NEWS.</a></td><td>Ludovic Courtès</td></tr>