tests/guix-build.sh

   1 # GNU Guix --- Functional package management for GNU
   2 # Copyright © 2012, 2013 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 build' command-line utility.
  21 #
  22
  23 guix build --version
  24
  25 # Should fail.
  26 if guix build -e +;
  27 then false; else true; fi
  28
  29 # Should fail because this is a source-less package.
  30 if guix build -e '(@ (gnu packages bootstrap) %bootstrap-glibc)' -S
  31 then false; else true; fi
  32
  33 # Should pass.
  34 guix build -e '(@@ (gnu packages base) %bootstrap-guile)' |     \
  35     grep -e '-guile-'
  36 guix build hello -d |                           \
  37     grep -e '-hello-[0-9\.]\+\.drv$'
  38
  39 # Should fail because the name/version combination could not be found.
  40 if guix build hello-0.0.1 -n; then false; else true; fi
  41
  42 # Keep a symlink to the result, registered as a root.
  43 result="t-result-$$"
  44 guix build -r "$result"                                 \
  45     -e '(@@ (gnu packages base) %bootstrap-guile)'
  46 test -x "$result/bin/guile"
  47
  48 # Should fail, because $result already exists.
  49 if guix build -r "$result" -e '(@@ (gnu packages base) %bootstrap-guile)'
  50 then false; else true; fi
  51
  52 rm -f "$result"
  53
  54 # Cross building.
  55 guix build coreutils --target=mips64el-linux-gnu --dry-run --no-substitutes
  56
  57 # Parsing package names and versions.
  58 guix build -n time              # PASS
  59 guix build -n time-1.7          # PASS, version found
  60 if guix build -n time-3.2;      # FAIL, version not found
  61 then false; else true; fi
  62 if guix build -n something-that-will-never-exist; # FAIL
  63 then false; else true; fi