# GNU Guix --- Functional package management for GNU
# Copyright © 2013, 2014, 2015, 2019 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-$$"
tmpdir="t-archive-dir-$$"
rm -f "$archive" "$archive_alt"
rm -rf "$tmpdir"

trap 'rm -f "$archive" "$archive_alt"; rm -rf "$tmpdir"' 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 upon import.
guix archive --import < "$archive"

! guix archive something-that-does-not-exist

# 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"
! guix archive --missing < "$archive"

# Check '--extract'.
guile -c "(use-modules (guix serialization))
  (call-with-output-file \"$archive\"
    (lambda (port)
      (write-file \"$(guix build guile-bootstrap)\" port)))"
guix archive -x "$tmpdir" < "$archive"
test -x "$tmpdir/bin/guile"
test -d "$tmpdir/lib/guile"

# Check '--list'.
guix archive -t < "$archive" | grep "^D /share/guile"
guix archive -t < "$archive" | grep "^x /bin/guile"
guix archive -t < "$archive" | grep "^r /share/guile.*/boot-9\.scm"

! echo foo | guix archive --authorize
ddbbccd9a8720a9aa8cf10809fa5e'>Collapse</a>)</th><th class='left'>Author</th></tr>
<tr class='logheader'><td><span title='2020-03-18 19:23:46 +0100'>2020-03-18</span></td><td class='logsubject'><a href='/guix/commit/gnu/packages/avahi.scm?id=850093ac24f92ae805a2ee90681d1e4cb01ff8eb'>gnu: avahi: Update to 0.8.</a></td><td>Marius Bakke</td></tr>
<tr class='nohover-highlight'><td/><td colspan='3' class='logmsg'>
* gnu/packages/patches/avahi-CVE-2018-1000845.patch: Delete file.
* gnu/local.mk (dist_patch_DATA): Adjust accordingly.
* gnu/packages/avahi.scm (avahi): Update to 0.8.
[source](patches): Remove obsolete patch.
[properties]: Remove.
[arguments]: Remove "--disable-qt3" from #:configure-flags.  Add "--disable-qt5".
[inputs]: Add LIBEVENT.  Sort lexicographically.
[native-inputs]: Remove INTLTOOL.  Add GETTEXT-MINIMAL.


</td></tr>
<tr class='logheader'><td><span title='2020-03-18 19:23:46 +0100'>2020-03-18</span></td><td class='logsubject'><a href='/guix/commit/gnu/packages/avahi.scm?id=32b089f4f4e86a32bb34c2c7983be5dbe9603784'>gnu: avahi: Do not build the static libraries.</a></td><td>Marius Bakke</td></tr>
<tr class='nohover-highlight'><td/><td colspan='3' class='logmsg'>
* gnu/packages/avahi.scm (avahi)[arguments]: Add "--disable-static" to
 #:configure-flags.


</td></tr>
<tr class='logheader'><td><span title='2020-01-21 22:39:42 +0100'>2020-01-21</span></td><td class='logsubject'><a href='/guix/commit/gnu/packages/avahi.scm?id=8ed9be3faccb865204de46d2a8ed3e96e59281b6'>Merge branch 'staging' into core-updates</a></td><td>Marius Bakke</td></tr>
<tr class='nohover-highlight'><td/><td colspan='3' class='logmsg'>
</td></tr>
<tr class='logheader'><td><span title='2020-01-19 06:09:01 +0100'>2020-01-19</span></td><td class='logsubject'><a href='/guix/commit/gnu/packages/avahi.scm?id=f460f8da68f915dee5aa3ce97e05ba38c92f3106'>gnu: Use HTTPS for avahi.org everywhere.</a></td><td>Tobias Geerinckx-Rice</td></tr>
<tr class='nohover-highlight'><td/><td colspan='3' class='logmsg'>
* gnu/packages/avahi.scm (avahi)[home-page]: Use HTTPS.
* gnu/services/avahi.scm (avahi-service): Likewise in docstring.


</td></tr>
<tr class='logheader'><td><span title='2019-12-05 17:58:58 +0100'>2019-12-05</span></td><td class='logsubject'><a href='/guix/commit/gnu/packages/avahi.scm?id=edb8aa3a28d410ef6fcb9355b57f9be26f87caed'>gnu: avahi: Incorporate grafted changes.</a></td><td>Marius Bakke</td></tr>
<tr class='nohover-highlight'><td/><td colspan='3' class='logmsg'>
* gnu/packages/avahi.scm (avahi)[replacement]: Remove.
[source](patches): Add avahi-CVE-2018-1000845.patch.
[properties]: New field.
(avahi/fixed): Remove variable.


</td></tr>
<tr class='logheader'><td><span title='2019-10-23 20:39:46 +0200'>2019-10-23</span></td><td class='logsubject'><a href='/guix/commit/gnu/packages/avahi.scm?id=4163b6d855a4e655852029625762fccb077a196d'>gnu: avahi: Don't use package/inherit.</a></td><td>Tobias Geerinckx-Rice</td></tr>
<tr class='nohover-highlight'><td/><td colspan='3' class='logmsg'>
Thanks to Mark H Weaver &lt;mhw@netris.org&gt;.

* gnu/packages/avahi.scm (avahi): Use (package (inherit …)) instead of
package/inherit.


</td></tr>
<tr class='logheader'><td><span title='2019-10-23 19:58:48 +0200'>2019-10-23</span></td><td class='logsubject'><a href='/guix/commit/gnu/packages/avahi.scm?id=3f4ea9a62b5fa68d57724b2f83c35a191e33b7c8'>gnu: avahi: Fix CVE-2018-1000845 and duplicate CVE-2017-6519.</a></td><td>Tobias Geerinckx-Rice</td></tr>
<tr class='nohover-highlight'><td/><td colspan='3' class='logmsg'>
* gnu/packages/avahi.scm (avahi/fixed): New variable.
(avahi)[replacement]: Use it.
* gnu/packages/patches/avahi-CVE-2018-1000845.patch: New file.
* gnu/local.mk (dist_patch_DATA): Add it.


</td></tr>