Browse Source

tests: Fix typo in guix-build.sh.

* tests/guix-build.sh: Refer to the '%bootstrap' variables from (gnu
  packages bootstrap), not (gnu packages base).
version-0.8.3
Ludovic Courtès 8 years ago
parent
commit
af9142dce0
  1. 12
      tests/guix-build.sh

12
tests/guix-build.sh

@ -31,18 +31,18 @@ if guix build -e '(@ (gnu packages bootstrap) %bootstrap-glibc)' -S
then false; else true; fi
# Should pass.
guix build -e '(@@ (gnu packages base) %bootstrap-guile)' | \
guix build -e '(@@ (gnu packages bootstrap) %bootstrap-guile)' | \
grep -e '-guile-'
guix build hello -d | \
grep -e '-hello-[0-9\.]\+\.drv$'
# Should all return valid log files.
drv="`guix build -d -e '(@@ (gnu packages base) %bootstrap-guile)'`"
out="`guix build -e '(@@ (gnu packages base) %bootstrap-guile)'`"
drv="`guix build -d -e '(@@ (gnu packages bootstrap) %bootstrap-guile)'`"
out="`guix build -e '(@@ (gnu packages bootstrap) %bootstrap-guile)'`"
log="`guix build --log-file $drv`"
echo "$log" | grep log/.*guile.*drv
test -f "$log"
test "`guix build -e '(@@ (gnu packages base) %bootstrap-guile)' --log-file`" \
test "`guix build -e '(@@ (gnu packages bootstrap) %bootstrap-guile)' --log-file`" \
= "$log"
test "`guix build --log-file guile-bootstrap`" = "$log"
test "`guix build --log-file $out`" = "$log"
@ -53,11 +53,11 @@ if guix build hello-0.0.1 -n; then false; else true; fi
# Keep a symlink to the result, registered as a root.
result="t-result-$$"
guix build -r "$result" \
-e '(@@ (gnu packages base) %bootstrap-guile)'
-e '(@@ (gnu packages bootstrap) %bootstrap-guile)'
test -x "$result/bin/guile"
# Should fail, because $result already exists.
if guix build -r "$result" -e '(@@ (gnu packages base) %bootstrap-guile)'
if guix build -r "$result" -e '(@@ (gnu packages bootstrap) %bootstrap-guile)'
then false; else true; fi
rm -f "$result"

Loading…
Cancel
Save