tests: Fix typo in guix-build.sh.
* tests/guix-build.sh: Refer to the '%bootstrap' variables from (gnu packages bootstrap), not (gnu packages base).
This commit is contained in:
parent
d17ef35620
commit
af9142dce0
|
@ -31,18 +31,18 @@ if guix build -e '(@ (gnu packages bootstrap) %bootstrap-glibc)' -S
|
||||||
then false; else true; fi
|
then false; else true; fi
|
||||||
|
|
||||||
# Should pass.
|
# Should pass.
|
||||||
guix build -e '(@@ (gnu packages base) %bootstrap-guile)' | \
|
guix build -e '(@@ (gnu packages bootstrap) %bootstrap-guile)' | \
|
||||||
grep -e '-guile-'
|
grep -e '-guile-'
|
||||||
guix build hello -d | \
|
guix build hello -d | \
|
||||||
grep -e '-hello-[0-9\.]\+\.drv$'
|
grep -e '-hello-[0-9\.]\+\.drv$'
|
||||||
|
|
||||||
# Should all return valid log files.
|
# Should all return valid log files.
|
||||||
drv="`guix build -d -e '(@@ (gnu packages base) %bootstrap-guile)'`"
|
drv="`guix build -d -e '(@@ (gnu packages bootstrap) %bootstrap-guile)'`"
|
||||||
out="`guix build -e '(@@ (gnu packages base) %bootstrap-guile)'`"
|
out="`guix build -e '(@@ (gnu packages bootstrap) %bootstrap-guile)'`"
|
||||||
log="`guix build --log-file $drv`"
|
log="`guix build --log-file $drv`"
|
||||||
echo "$log" | grep log/.*guile.*drv
|
echo "$log" | grep log/.*guile.*drv
|
||||||
test -f "$log"
|
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"
|
= "$log"
|
||||||
test "`guix build --log-file guile-bootstrap`" = "$log"
|
test "`guix build --log-file guile-bootstrap`" = "$log"
|
||||||
test "`guix build --log-file $out`" = "$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.
|
# Keep a symlink to the result, registered as a root.
|
||||||
result="t-result-$$"
|
result="t-result-$$"
|
||||||
guix build -r "$result" \
|
guix build -r "$result" \
|
||||||
-e '(@@ (gnu packages base) %bootstrap-guile)'
|
-e '(@@ (gnu packages bootstrap) %bootstrap-guile)'
|
||||||
test -x "$result/bin/guile"
|
test -x "$result/bin/guile"
|
||||||
|
|
||||||
# Should fail, because $result already exists.
|
# 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
|
then false; else true; fi
|
||||||
|
|
||||||
rm -f "$result"
|
rm -f "$result"
|
||||||
|
|
Loading…
Reference in New Issue