tests/guix-archive.sh

   1 # GNU Guix --- Functional package management for GNU
   2 # Copyright © 2013, 2014, 2015, 2019 Ludovic Courtès <ludo@gnu.org>
   3 #
   4 # This file is part of GNU Guix.
   5 #
   6 # GNU Guix is free software; you can redistribute it and/or modify it
   7 # under the terms of the GNU General Public License as published by
   8 # the Free Software Foundation; either version 3 of the License, or (at
   9 # your option) any later version.
  10 #
  11 # GNU Guix is distributed in the hope that it will be useful, but
  12 # WITHOUT ANY WARRANTY; without even the implied warranty of
  13 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14 # GNU General Public License for more details.
  15 #
  16 # You should have received a copy of the GNU General Public License
  17 # along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
  18
  19 #
  20 # Test the 'guix archive' command-line utility.
  21 #
  22
  23 guix archive --version
  24
  25 archive="t-archive-$$"
  26 archive_alt="t-archive-alt-$$"
  27 tmpdir="t-archive-dir-$$"
  28 rm -f "$archive" "$archive_alt"
  29 rm -rf "$tmpdir"
  30
  31 trap 'rm -f "$archive" "$archive_alt"; rm -rf "$tmpdir"' EXIT
  32
  33 guix archive --export guile-bootstrap > "$archive"
  34 guix archive --export guile-bootstrap:out > "$archive_alt"
  35 cmp "$archive" "$archive_alt"
  36
  37 guix archive --export                                                   \
  38     -e '(@ (gnu packages bootstrap) %bootstrap-guile)' > "$archive_alt"
  39 cmp "$archive" "$archive_alt"
  40
  41 guix archive --export `guix build guile-bootstrap` > "$archive_alt"
  42 cmp "$archive" "$archive_alt"
  43
  44 # Check the exit value upon import.
  45 guix archive --import < "$archive"
  46
  47 if guix archive something-that-does-not-exist
  48 then false; else true; fi
  49
  50 # This one must not be listed as missing.
  51 guix build guile-bootstrap > "$archive"
  52 guix archive --missing < "$archive"
  53 test "`guix archive --missing < "$archive"`" = ""
  54
  55 # Two out of three should be listed as missing.
  56 echo "$NIX_STORE_DIR/aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa-foo" >> "$archive"
  57 echo "$NIX_STORE_DIR/aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa-bar" >> "$archive"
  58 guix archive --missing < "$archive" > "$archive_alt"
  59 echo "$NIX_STORE_DIR/aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa-foo" > "$archive"
  60 echo "$NIX_STORE_DIR/aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa-bar" >> "$archive"
  61 cmp "$archive" "$archive_alt"
  62
  63 # This is not a valid store file name, so an error.
  64 echo something invalid > "$archive"
  65 if guix archive --missing < "$archive"
  66 then false; else true; fi
  67
  68 # Check '--extract'.
  69 guile -c "(use-modules (guix serialization))
  70   (call-with-output-file \"$archive\"
  71     (lambda (port)
  72       (write-file \"$(guix build guile-bootstrap)\" port)))"
  73 guix archive -x "$tmpdir" < "$archive"
  74 test -x "$tmpdir/bin/guile"
  75 test -d "$tmpdir/lib/guile"
  76
  77 # Check '--list'.
  78 guix archive -t < "$archive" | grep "^D /share/guile"
  79 guix archive -t < "$archive" | grep "^x /bin/guile"
  80 guix archive -t < "$archive" | grep "^r /share/guile.*/boot-9\.scm"
  81
  82 if echo foo | guix archive --authorize
  83 then false; else true; fi