tests/guix-archive.sh

   1 # GNU Guix --- Functional package management for GNU
   2 # Copyright © 2013, 2014 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 rm -f "$archive" "$archive_alt"
  28
  29 trap 'rm -f "$archive" "$archive_alt"' EXIT
  30
  31 guix archive --export guile-bootstrap > "$archive"
  32 guix archive --export guile-bootstrap:out > "$archive_alt"
  33 cmp "$archive" "$archive_alt"
  34
  35 guix archive --export                                                   \
  36     -e '(@ (gnu packages bootstrap) %bootstrap-guile)' > "$archive_alt"
  37 cmp "$archive" "$archive_alt"
  38
  39 guix archive --export `guix build guile-bootstrap` > "$archive_alt"
  40 cmp "$archive" "$archive_alt"
  41
  42 # Check the exit value and stderr upon import.
  43 guix archive --import < "$archive"
  44 guix archive --import < "$archive" 2>&1 | grep "import.*guile-bootstrap"
  45
  46 if guix archive something-that-does-not-exist
  47 then false; else true; fi
  48
  49 # This one must not be listed as missing.
  50 guix build guile-bootstrap > "$archive"
  51 guix archive --missing < "$archive"
  52 test "`guix archive --missing < "$archive"`" = ""
  53
  54 # Two out of three should be listed as missing.
  55 echo "$NIX_STORE_DIR/aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa-foo" >> "$archive"
  56 echo "$NIX_STORE_DIR/aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa-bar" >> "$archive"
  57 guix archive --missing < "$archive" > "$archive_alt"
  58 echo "$NIX_STORE_DIR/aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa-foo" > "$archive"
  59 echo "$NIX_STORE_DIR/aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa-bar" >> "$archive"
  60 cmp "$archive" "$archive_alt"
  61
  62 # This is not a valid store file name, so an error.
  63 echo something invalid > "$archive"
  64 if guix archive --missing < "$archive"
  65 then false; else true; fi
  66
  67 if echo foo | guix archive --authorize
  68 then false; else true; fi