tests/guix-build.sh

   1 # GNU Guix --- Functional package management for GNU
   2 # Copyright © 2012, 2013, 2014, 2016 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 bootstrap) %bootstrap-guile)' |        \
  35     grep -e '-guile-'
  36 guix build hello -d |                           \
  37     grep -e '-hello-[0-9\.]\+\.drv$'
  38
  39 # Check --sources option with its arguments
  40 module_dir="t-guix-build-$$"
  41 mkdir "$module_dir"
  42 trap "rm -rf $module_dir" EXIT
  43
  44 cat > "$module_dir/foo.scm"<<EOF
  45 (define-module (foo)
  46   #:use-module (guix tests)
  47   #:use-module (guix packages)
  48   #:use-module (guix download)
  49   #:use-module (guix build-system trivial))
  50
  51 (define-public foo
  52   (package
  53     (name "foo")
  54     (version "42")
  55     (source (origin
  56               (method url-fetch)
  57               (uri "http://www.example.com/foo.tar.gz")
  58               (sha256
  59                (base32
  60                 "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"))))
  61     (build-system trivial-build-system)
  62     (inputs
  63      (quasiquote (("bar" ,bar))))
  64     (home-page "www.example.com")
  65     (synopsis "Dummy package")
  66     (description "foo is a dummy package for testing.")
  67     (license #f)))
  68
  69 (define-public bar
  70   (package
  71     (name "bar")
  72     (version "9001")
  73     (source (origin
  74               (method url-fetch)
  75               (uri "http://www.example.com/bar.tar.gz")
  76               (sha256
  77                (base32
  78                 "yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy"))))
  79     (build-system trivial-build-system)
  80     (inputs
  81      (quasiquote
  82       (("data" ,(origin
  83                  (method url-fetch)
  84                  (uri "http://www.example.com/bar.dat")
  85                  (sha256
  86                   (base32
  87                    "zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz")))))))
  88     (home-page "www.example.com")
  89     (synopsis "Dummy package")
  90     (description "bar is a dummy package for testing.")
  91     (license #f)))
  92
  93 (define-public baz
  94   (dummy-package "baz" (replacement foo)))
  95
  96 (define-public superseded
  97   (deprecated-package "superseded" bar))
  98
  99 EOF
 100
 101 GUIX_PACKAGE_PATH="$module_dir"
 102 export GUIX_PACKAGE_PATH
 103
 104 # foo.tar.gz
 105 guix build -d -S foo
 106 guix build -d -S foo | grep -e 'foo\.tar\.gz'
 107
 108 # 'baz' has a replacement so we should be getting the replacement's source.
 109 (unset GUIX_BUILD_OPTIONS;
 110  test "`guix build -d -S baz`" = "`guix build -d -S foo`")
 111
 112 guix build -d --sources=package foo
 113 guix build -d --sources=package foo | grep -e 'foo\.tar\.gz'
 114
 115 # bar.tar.gz and bar.dat
 116 guix build -d --sources bar
 117 test `guix build -d --sources bar \
 118       | grep -e 'bar\.tar\.gz' -e 'bar\.dat' \
 119       | wc -l` -eq 2
 120
 121 # bar.tar.gz and bar.dat
 122 guix build -d --sources=all bar
 123 test `guix build -d --sources bar \
 124       | grep -e 'bar\.tar\.gz' -e 'bar\.dat' \
 125       | wc -l` -eq 2
 126
 127 # Should include foo.tar.gz, bar.tar.gz, and bar.dat
 128 guix build -d --sources=transitive foo
 129 test `guix build -d --sources=transitive foo \
 130       | grep -e 'foo\.tar\.gz' -e 'bar\.tar\.gz' -e 'bar\.dat' \
 131       | wc -l` -eq 3
 132
 133 # Should all return valid log files.
 134 drv="`guix build -d -e '(@@ (gnu packages bootstrap) %bootstrap-guile)'`"
 135 out="`guix build -e '(@@ (gnu packages bootstrap) %bootstrap-guile)'`"
 136 log="`guix build --log-file $drv`"
 137 echo "$log" | grep log/.*guile.*drv
 138 test -f "$log"
 139 test "`guix build -e '(@@ (gnu packages bootstrap) %bootstrap-guile)' --log-file`" \
 140     = "$log"
 141 test "`guix build --log-file guile-bootstrap`" = "$log"
 142 test "`guix build --log-file $out`" = "$log"
 143
 144 # Should fail because the name/version combination could not be found.
 145 if guix build hello-0.0.1 -n; then false; else true; fi
 146
 147 # Keep a symlink to the result, registered as a root.
 148 result="t-result-$$"
 149 guix build -r "$result"                                 \
 150     -e '(@@ (gnu packages bootstrap) %bootstrap-guile)'
 151 test -x "$result/bin/guile"
 152
 153 # Should fail, because $result already exists.
 154 if guix build -r "$result" -e '(@@ (gnu packages bootstrap) %bootstrap-guile)'
 155 then false; else true; fi
 156
 157 rm -f "$result"
 158
 159 # Cross building.
 160 guix build coreutils --target=mips64el-linux-gnu --dry-run --no-substitutes
 161
 162 # Replacements.
 163 drv1=`guix build guix --with-input=guile=guile-next -d`
 164 drv2=`guix build guix -d`
 165 test "$drv1" != "$drv2"
 166
 167 drv1=`guix build guile -d`
 168 drv2=`guix build guile --with-input=gimp=ruby -d`
 169 test "$drv1" = "$drv2"
 170
 171 if guix build guile --with-input=libunistring=something-really-silly
 172 then false; else true; fi
 173
 174 # Deprecated/superseded packages.
 175 test "`guix build superseded -d`" = "`guix build bar -d`"
 176
 177 # Parsing package names and versions.
 178 guix build -n time              # PASS
 179 guix build -n time@1.7          # PASS, version found
 180 guix build -n time-1.7          # PASS, deprecated version syntax
 181 if guix build -n time@3.2;      # FAIL, version not found
 182 then false; else true; fi
 183 if guix build -n something-that-will-never-exist; # FAIL
 184 then false; else true; fi
 185
 186 # Invoking a monadic procedure.
 187 guix build -e "(begin
 188                  (use-modules (guix gexp))
 189                  (lambda ()
 190                    (gexp->derivation \"test\"
 191                                      (gexp (mkdir (ungexp output))))))" \
 192    --dry-run
 193
 194 # Running a gexp.
 195 guix build -e '#~(mkdir #$output)' -d
 196 guix build -e '#~(mkdir #$output)' -d | grep 'gexp\.drv'
 197
 198 # Building from a package file.
 199 cat > "$module_dir/package.scm"<<EOF
 200 (use-modules (gnu))
 201 (use-package-modules bootstrap)
 202
 203 %bootstrap-guile
 204 EOF
 205 guix build --file="$module_dir/package.scm"
 206
 207 # Building from a monadic procedure file.
 208 cat > "$module_dir/proc.scm"<<EOF
 209 (use-modules (guix gexp))
 210 (lambda ()
 211   (gexp->derivation "test"
 212                     (gexp (mkdir (ungexp output)))))
 213 EOF
 214 guix build --file="$module_dir/proc.scm" --dry-run
 215
 216 # Building from a gexp file.
 217 cat > "$module_dir/gexp.scm"<<EOF
 218 (use-modules (guix gexp))
 219
 220 (gexp (mkdir (ungexp output)))
 221 EOF
 222 guix build --file="$module_dir/gexp.scm" -d
 223 guix build --file="$module_dir/gexp.scm" -d | grep 'gexp\.drv'
 224
 225 # Using 'GUIX_BUILD_OPTIONS'.
 226 GUIX_BUILD_OPTIONS="--dry-run --no-grafts"
 227 export GUIX_BUILD_OPTIONS
 228
 229 guix build emacs
 230
 231 GUIX_BUILD_OPTIONS="--something-completely-crazy"
 232 if guix build emacs;
 233 then false; else true; fi