me
/
guix
Archived
1
0
Fork 0

tests: Fix checks for expected failures.

Addresses <https://issues.guix.gnu.org/62406>.

With 'set -e', a return status inverted with '!' does not cause the shell to
exit immediately.  Instead use '&& false' to indicate an expected failure.

* tests/guix-archive.sh, tests/guix-build-branch.sh, tests/guix-build.sh,
tests/guix-daemon.sh, tests/guix-download.sh,
tests/guix-environment-container.sh, tests/guix-environment.sh,
tests/guix-gc.sh, tests/guix-git-authenticate.sh, tests/guix-graph.sh,
tests/guix-hash.sh, tests/guix-home.sh, tests/guix-pack-relocatable.sh,
tests/guix-pack.sh, tests/guix-package-aliases.sh, tests/guix-package-net.sh,
tests/guix-package.sh, tests/guix-refresh.sh, tests/guix-shell.sh,
tests/guix-style.sh, tests/guix-system.sh: Replace uses of '! ...' with
'... && false' or `test ! ...` as appropriate.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
master
Eric Bavier 2023-04-20 00:11:27 -05:00 committed by Ludovic Courtès
parent a09c7da8f8
commit 37dd69b445
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
21 changed files with 117 additions and 109 deletions

View File

@ -44,7 +44,7 @@ cmp "$archive" "$archive_alt"
# Check the exit value upon import.
guix archive --import < "$archive"
! guix archive something-that-does-not-exist
guix archive --export something-that-does-not-exist && false
# This one must not be listed as missing.
guix build guile-bootstrap > "$archive"
@ -61,7 +61,7 @@ cmp "$archive" "$archive_alt"
# This is not a valid store file name, so an error.
echo something invalid > "$archive"
! guix archive --missing < "$archive"
guix archive --missing < "$archive" && false
# Check '--extract'.
guile -c "(use-modules (guix serialization))
@ -77,4 +77,6 @@ guix archive -t < "$archive" | grep "^D /share/guile"
guix archive -t < "$archive" | grep "^x /bin/guile"
guix archive -t < "$archive" | grep "^r /share/guile.*/boot-9\.scm"
! echo foo | guix archive --authorize
echo foo | guix archive --authorize && false
exit 0

View File

@ -58,4 +58,6 @@ guix gc -R "$v0_1_0_drv" | grep guile-gcrypt-9e3eacd
test "$v0_1_0_drv" != "$latest_drv"
test "$v0_1_0_drv" != "$orig_drv"
! guix build guix --with-commit=guile-gcrypt=000 -d
guix build guix --with-commit=guile-gcrypt=000 -d && false
exit 0

View File

@ -25,7 +25,7 @@
guix build --version
# Should fail.
! guix build -e +
guix build -e + && false
# Source-less packages are accepted; they just return nothing.
guix build -e '(@ (gnu packages bootstrap) %bootstrap-glibc)' -S
@ -92,7 +92,7 @@ cat > "$module_dir/foo.scm" <<EOF
(use-modules (guix))
) ;extra closing paren
EOF
! guix build -f "$module_dir/foo.scm" 2> "$module_dir/stderr"
guix build -f "$module_dir/foo.scm" 2> "$module_dir/stderr" && false
grep "read error" "$module_dir/stderr"
rm "$module_dir/stderr" "$module_dir/foo.scm"
@ -199,7 +199,7 @@ cat > "$module_dir/foo.scm" <<EOF
(inputs (quasiquote (("sed" ,sed)))))) ;unbound variable
EOF
! guix build package-with-something-wrong -n
guix build package-with-something-wrong -n && false
guix build package-with-something-wrong -n 2> "$module_dir/err" || true
grep "unbound" "$module_dir/err" # actual error
grep "forget.*(gnu packages base)" "$module_dir/err" # hint
@ -240,7 +240,7 @@ cat > "$module_dir/cc-user.scm" <<EOF
(define-module (cc-user))
(make-thing 42)
EOF
! guix build -f "$module_dir/cc-user.scm" -n 2> "$module_dir/err"
guix build -f "$module_dir/cc-user.scm" -n 2> "$module_dir/err" && false
cat "$module_dir/err"
grep "make-thing.*unbound" "$module_dir/err" # actual error
grep "forget.*(bb-public)" "$module_dir/err" # hint
@ -270,7 +270,7 @@ test "`guix build --log-file guile-bootstrap`" = "$log"
test "`guix build --log-file $out`" = "$log"
# Should fail because the name/version combination could not be found.
! guix build hello-0.0.1 -n
guix build hello-0.0.1 -n && false
# Keep a symlink to the result, registered as a root.
result="t-result-$$"
@ -279,7 +279,7 @@ guix build -r "$result" \
test -x "$result/bin/guile"
# Should fail, because $result already exists.
! guix build -r "$result" -e '(@@ (gnu packages bootstrap) %bootstrap-guile)'
guix build -r "$result" -e '(@@ (gnu packages bootstrap) %bootstrap-guile)' && false
rm -f "$result"
@ -323,7 +323,7 @@ drv2=`guix build hello -d --with-input=gcc=gcc-toolchain`
test "$drv1" != "$drv2"
guix gc -R "$drv2" | grep `guix build -d gcc-toolchain`
! guix build guile --with-input=libunistring=something-really-silly
guix build guile --with-input=libunistring=something-really-silly && false
# Deprecated/superseded packages.
test "`guix build superseded -d`" = "`guix build bar -d`"
@ -331,8 +331,8 @@ test "`guix build superseded -d`" = "`guix build bar -d`"
# Parsing package names and versions.
guix build -n time # PASS
guix build -n time@1.9 # PASS, version found
! guix build -n time@3.2 # FAIL, version not found
! guix build -n something-that-will-never-exist # FAIL
guix build -n time@3.2 && false # FAIL, version not found
guix build -n something-that-will-never-exist && false # FAIL
# Invoking a monadic procedure.
guix build -e "(begin
@ -404,4 +404,6 @@ export GUIX_BUILD_OPTIONS
guix build emacs
GUIX_BUILD_OPTIONS="--something-completely-crazy"
! guix build emacs
guix build emacs && false
exit 0

View File

@ -224,7 +224,7 @@ daemon_pid=$!
GUIX_DAEMON_SOCKET="guix://$tcp_socket"
export GUIX_DAEMON_SOCKET
! guix gc
guix gc && false
unset GUIX_DAEMON_SOCKET
kill "$daemon_pid"

View File

@ -23,11 +23,11 @@
guix download --version
# Make sure it fails here.
! guix download http://does.not/exist
guix download http://does.not/exist && false
! guix download unknown://some/where;
guix download unknown://some/where && false
! guix download /does-not-exist
guix download /does-not-exist && false
# This one should succeed.
guix download "file://$abs_top_srcdir/README"
@ -43,4 +43,6 @@ GUIX_DAEMON_SOCKET="/nowhere" guix download -o "$output" \
cmp "$output" "$abs_top_srcdir/README"
# This one should fail.
! guix download "file:///does-not-exist" "file://$abs_top_srcdir/README"
guix download "file:///does-not-exist" "file://$abs_top_srcdir/README" && false
exit 0

View File

@ -260,16 +260,15 @@ guix shell --bootstrap guile-bootstrap --container \
/usr/bin/guile --version
# A dangling symlink causes the command to fail.
! guix shell --bootstrap -CS /usr/bin/python=bin/python guile-bootstrap -- exit
guix shell --bootstrap -CS /usr/bin/python=bin/python guile-bootstrap -- exit && false
# An invalid symlink spec causes the command to fail.
! guix shell --bootstrap -CS bin/guile=/usr/bin/guile guile-bootstrap -- exit
guix shell --bootstrap -CS bin/guile=/usr/bin/guile guile-bootstrap -- exit && false
# Check whether '--nesting' works.
guix build hello -d
env="$(type -P pre-inst-env)"
if guix shell -C -D guix -- "$env" guix build hello -d # cannot work
then false; else true; fi
guix shell -C -D guix -- "$env" guix build hello -d && false # cannot work
hello_drv="$(guix build hello -d)"
hello_drv_nested="$(cd "$(dirname env)" && guix shell --bootstrap -CW -D guix -- "$env" guix build hello -d)"
test "$hello_drv" = "$hello_drv_nested"

View File

@ -60,7 +60,7 @@ guix environment --bootstrap --ad-hoc guile-bootstrap --pure \
grep '^PATH=' "$tmpdir/a"
grep '^GUIX_TEST_ABC=' "$tmpdir/a"
grep '^GUIX_TEST_DEF=' "$tmpdir/a"
! grep '^GUIX_TEST_XYZ=' "$tmpdir/a"
grep '^GUIX_TEST_XYZ=' "$tmpdir/a" && false
# Make sure the exit value is preserved.
if guix environment --bootstrap --ad-hoc guile-bootstrap --pure \
@ -207,7 +207,7 @@ then
done
# 'make-boot0' itself must not be listed.
! guix gc --references "$profile" | grep make-boot0
guix gc --references "$profile" | grep make-boot0 && false
# Make sure that the shell spawned with '--exec' sees the same environment
# as returned by '--search-paths'.
@ -224,7 +224,7 @@ then
test "x$make_boot0_debug" != "x"
# Make sure the "debug" output is not listed.
! guix gc --references "$profile" | grep "$make_boot0_debug"
guix gc --references "$profile" | grep "$make_boot0_debug" && false
# Compute the build environment for the initial GNU Make, but add in the
# bootstrap Guile as an ad-hoc addition.

View File

@ -36,11 +36,11 @@ unset out
# For some operations, passing extra arguments is an error.
for option in "" "-C 500M" "--verify" "--optimize" "--list-roots"
do
! guix gc $option whatever
guix gc $option whatever && false
done
# This should fail.
! guix gc --verify=foo
guix gc --verify=foo && false
# Check the references of a .drv.
drv="`guix build guile-bootstrap -d`"
@ -51,7 +51,7 @@ guix gc --references "$drv" | grep -e -bash
guix gc --references "$out"
guix gc --references "$out/bin/guile"
! guix gc --references /dev/null;
guix gc --references /dev/null && false
# Check derivers.
guix gc --derivers "$out" | grep "$drv"
@ -62,7 +62,7 @@ test -f "$drv"
guix gc --list-dead | grep "$drv"
guix gc --delete "$drv"
! test -f "$drv"
test ! -f "$drv"
# Add a .drv, register it as a root.
drv="`guix build --root=guix-gc-root lsh -d`"
@ -71,18 +71,18 @@ test -f "$drv" && test -L guix-gc-root
guix gc --list-roots | grep "$PWD/guix-gc-root"
guix gc --list-live | grep "$drv"
! guix gc --delete "$drv";
guix gc --delete "$drv" && false
rm guix-gc-root
guix gc --list-dead | grep "$drv"
guix gc --delete "$drv"
! test -f "$drv"
test ! -f "$drv"
# Try a random collection.
guix gc -C 1KiB
# Check trivial error cases.
! guix gc --delete /dev/null;
guix gc --delete /dev/null && false
# Bug #19757
out="`guix build guile-bootstrap`"
@ -90,14 +90,14 @@ test -d "$out"
guix gc --delete "$out"
! test -d "$out"
test ! -d "$out"
out="`guix build guile-bootstrap`"
test -d "$out"
guix gc --delete "$out/"
! test -d "$out"
test ! -d "$out"
out="`guix build guile-bootstrap`"
test -d "$out"

View File

@ -35,9 +35,9 @@ intro_signer="BBB0 2DDF 2CEA F6A8 0D1D E643 A2A0 6DF2 A33A 54FA"
cache_key="test-$$"
# This must fail because the end commit is not a descendant of $intro_commit.
! guix git authenticate "$intro_commit" "$intro_signer" \
guix git authenticate "$intro_commit" "$intro_signer" \
--cache-key="$cache_key" --stats \
--end=9549f0283a78fe36f2d4ff2a04ef8ad6b0c02604
--end=9549f0283a78fe36f2d4ff2a04ef8ad6b0c02604 && false
# The v1.2.0 commit is a descendant of $intro_commit and it satisfies the
# authorization invariant.
@ -59,8 +59,8 @@ guix git authenticate "$intro_commit" "$intro_signer" \
--end="$v1_0_0_commit"
# This should fail because these commits lack '.guix-authorizations'.
! guix git authenticate "$v1_0_0_commit" "$v1_0_0_signer" \
--cache-key="$cache_key" --end="$v1_0_1_commit"
guix git authenticate "$v1_0_0_commit" "$v1_0_0_signer" \
--cache-key="$cache_key" --end="$v1_0_1_commit" && false
# This should work thanks to '--historical-authorizations'.
guix git authenticate "$v1_0_0_commit" "$v1_0_0_signer" \

View File

@ -59,7 +59,7 @@ guix graph -t references guile-bootstrap | grep guile-bootstrap
guix graph -e '(@ (gnu packages bootstrap) %bootstrap-guile)' \
| grep guile-bootstrap
! guix graph -e +
guix graph -e + && false
# Try passing store file names.
@ -76,13 +76,13 @@ cmp "$tmpfile1" "$tmpfile2"
# Try package transformation options.
guix graph git | grep 'label = "openssl'
guix graph git --with-input=openssl=libressl | grep 'label = "libressl'
! guix graph git --with-input=openssl=libressl | grep 'label = "openssl'
guix graph git --with-input=openssl=libressl | grep 'label = "openssl' && false
# Try --load-path
guix graph -L $module_dir dummy | grep 'label = "dummy'
# Displaying shortest paths (or lack thereof).
! guix graph --path emacs vim
guix graph --path emacs vim && false
path="\
emacs

View File

@ -38,12 +38,12 @@ test `guix hash -H sha1 -f base64 /dev/null` = "2jmj7l5rSw0yVb/vlWAYkK/YBwk="
test "`guix hash /dev/null "$abs_top_srcdir/README"`" = "`guix hash /dev/null ; guix hash "$abs_top_srcdir/README"`"
# Zero files.
! guix hash
guix hash && false
# idem as `cat /dev/null | git hash-object --stdin`
test `guix hash -S git -H sha1 -f hex /dev/null` = e69de29bb2d1d6434b8b29ae775ad8c2e48c5391
! guix hash -H abcd1234 /dev/null
guix hash -H abcd1234 /dev/null && false
mkdir "$tmpdir"
echo -n executable > "$tmpdir/exe"
@ -61,11 +61,11 @@ test `guix hash -r "$tmpdir" 2>/dev/null` = 10k1lw41wyrjf9mxydi0is5nkpynlsvgslin
test `guix hash -r "$tmpdir" -H sha512 2>/dev/null` = 301ra58c2vahczzxiyfin41mpyb0ljh4dh9zn3ijvwviaw1j40sfzw5skh9x945da88n3785ggifzig7acd6k72h0mpsc20m1f66m9n
# Without '-r', this should fail.
! guix hash "$tmpdir"
guix hash "$tmpdir" && false
# This should fail because /dev/null is a character device, which
# the archive format doesn't support.
! guix hash -S nar /dev/null
guix hash -S nar /dev/null && false
# Adding a .git directory
mkdir "$tmpdir/.git"
@ -80,5 +80,6 @@ test `guix hash -S nar $tmpdir -x` = 10k1lw41wyrjf9mxydi0is5nkpynlsvgslinics4ppi
test `guix hash -S git $tmpdir -x` = 1m9yxz99g7askm88h6hzyv4g2bfv57rp5wvwp3iq5ypsplq1xkkk
# Without '-r', this should fail.
! guix hash "$tmpdir"
guix hash "$tmpdir" && false
exit 0

View File

@ -109,7 +109,7 @@ EOF
guix home extension-graph "home.scm" | grep 'label = "home"'
# There are no Shepherd services so the one below must fail.
! guix home shepherd-graph "home.scm"
guix home shepherd-graph "home.scm" && false
if container_supported
then
@ -118,17 +118,17 @@ EOF
# TODO: Make container independent from external environment variables.
SHELL=bash
guix home container home.scm -- true
! guix home container home.scm -- false
guix home container home.scm -- false && false
test "$(guix home container home.scm -- echo '$HOME')" = "$HOME"
guix home container home.scm -- cat '~/.config/test.conf' | \
grep "the content of"
guix home container home.scm -- test -h '~/.bashrc'
test "$(guix home container home.scm -- id -u)" = 1000
! guix home container home.scm -- test -f '$HOME/sample/home.scm'
guix home container home.scm -- test -f '$HOME/sample/home.scm' && false
guix home container home.scm --expose="$PWD=$HOME/sample" -- \
test -f '$HOME/sample/home.scm'
! guix home container home.scm --expose="$PWD=$HOME/sample" -- \
rm -v '$HOME/sample/home.scm'
guix home container home.scm --expose="$PWD=$HOME/sample" -- \
rm -v '$HOME/sample/home.scm' && false
else
echo "'guix home container' test SKIPPED" >&2
fi
@ -206,8 +206,8 @@ EOF
# the NEW content of bashrc-test-config.sh"
# This file must have been removed and not backed up.
! test -e "$HOME/.config/test.conf"
! test -e "$HOME"/*guix-home*backup/.config/test.conf
test ! -e "$HOME/.config/test.conf"
test ! -e "$HOME"/*guix-home*backup/.config/test.conf
test "$(cat "$(configuration_file)")" == "$(cat home.scm)"
test "$(canonical_file_name)" == "$(readlink "${HOME}/.guix-home")"

View File

@ -92,7 +92,7 @@ then
grep 'GNU sed' "$test_directory/output"
# Check whether the exit code is preserved.
! run_without_store "$test_directory/Bin/sed" --does-not-exist
run_without_store "$test_directory/Bin/sed" --does-not-exist && false
chmod -Rf +w "$test_directory"; rm -rf "$test_directory"/*
else

View File

@ -37,7 +37,7 @@ test_directory="`mktemp -d`"
trap 'chmod -Rf +w "$test_directory"; rm -rf "$test_directory"' EXIT
# Reject unsuppoted packages.
! guix pack intelmetool -s armhf-linux -n
guix pack intelmetool -s armhf-linux -n && false
# Compute the derivation of a pack.
drv="`guix pack coreutils -d --no-grafts`"
@ -48,7 +48,7 @@ guix gc -R "$drv" | grep "`guix build coreutils -d --no-grafts`"
drv="`guix pack idutils -d --no-grafts --target=arm-linux-gnueabihf`"
guix gc -R "$drv" | \
grep "`guix build idutils --target=arm-linux-gnueabihf -d --no-grafts`"
! guix gc -R "$drv" | grep "`guix build idutils -d --no-grafts`"
guix gc -R "$drv" | grep "`guix build idutils -d --no-grafts`" && false
# Build a tarball with no compression.
guix pack --compression=none --bootstrap guile-bootstrap

View File

@ -36,7 +36,7 @@ guix install --bootstrap guile-bootstrap -p "$profile"
test -x "$profile/bin/guile"
# Make sure '-r' isn't passed as-is to 'guix package'.
! guix install -r guile-bootstrap -p "$profile" --bootstrap
guix install -r guile-bootstrap -p "$profile" --bootstrap && false
test -x "$profile/bin/guile"
# Use a package transformation option and make sure it's recorded.
@ -48,16 +48,16 @@ grep "libreoffice=inkscape" "$profile/manifest"
guix upgrade --version
guix upgrade -n
guix upgrade gui.e -n
! guix upgrade foo bar -n;
guix upgrade foo bar -n && false
guix remove --version
guix remove --bootstrap guile-bootstrap -p "$profile"
! test -x "$profile/bin/guile"
test ! -x "$profile/bin/guile"
test `guix package -p "$profile" -I | wc -l` -eq 0
! guix remove -p "$profile" this-is-not-installed --bootstrap
guix remove -p "$profile" this-is-not-installed --bootstrap && false
! guix remove -i guile-bootstrap -p "$profile" --bootstrap
guix remove -i guile-bootstrap -p "$profile" --bootstrap && false
guix search '\<board\>' game | grep '^name: gnubg'
@ -66,7 +66,7 @@ guix show guile
guix show python@3 | grep "^name: python"
# "python@2" exists but is deprecated; make sure it doesn't show up.
! guix show python@2
guix show python@2 && false
# Specifying multiple packages.
output="`guix show sed grep | grep ^name:`"

View File

@ -58,7 +58,7 @@ trap 'rm -f "$profile" "$profile_alt" "$profile.lock" "$profile_alt.lock" "$prof
guix package --bootstrap -p "$profile" -i guile-bootstrap
test -L "$profile" && test -L "$profile-1-link"
! test -f "$profile-2-link"
test ! -f "$profile-2-link"
test -f "$profile/bin/guile"
boot_make="(@ (guix tests) gnu-make-for-tests)"
@ -98,13 +98,13 @@ test "`guix package -p "$profile" -l | cut -f1 | grep guile | head -n1`" \
= " guile-bootstrap"
# Exit with 1 when a generation does not exist.
! guix package -p "$profile" --list-generations=42
! guix package -p "$profile" --switch-generation=99
guix package -p "$profile" --list-generations=42 && false
guix package -p "$profile" --switch-generation=99 && false
# Remove a package.
guix package --bootstrap -p "$profile" -r "guile-bootstrap"
test -L "$profile-3-link"
test -f "$profile/bin/make" && ! test -f "$profile/bin/guile"
test -f "$profile/bin/make" && test ! -f "$profile/bin/guile"
# Roll back.
guix package --roll-back -p "$profile"
@ -112,7 +112,7 @@ test "`readlink_base "$profile"`" = "$profile-2-link"
test -x "$profile/bin/guile" && test -x "$profile/bin/make"
guix package --roll-back -p "$profile"
test "`readlink_base "$profile"`" = "$profile-1-link"
test -x "$profile/bin/guile" && ! test -x "$profile/bin/make"
test -x "$profile/bin/guile" && test ! -x "$profile/bin/make"
# Switch to the rolled generation and switch back.
guix package -p "$profile" --switch-generation=2
@ -124,8 +124,8 @@ test "`readlink_base "$profile"`" = "$profile-1-link"
for i in `seq 1 3`
do
guix package --bootstrap --roll-back -p "$profile"
! test -f "$profile/bin"
! test -f "$profile/lib"
test ! -f "$profile/bin"
test ! -f "$profile/lib"
test "`readlink_base "$profile"`" = "$profile-0-link"
done
@ -135,7 +135,7 @@ test -z "`guix package -p "$profile" -l 0`"
# Reinstall after roll-back to the empty profile.
guix package --bootstrap -p "$profile" -e "$boot_make"
test "`readlink_base "$profile"`" = "$profile-1-link"
test -x "$profile/bin/guile" && ! test -x "$profile/bin/make"
test -x "$profile/bin/guile" && test ! -x "$profile/bin/make"
# Check that the first generation is the current one.
test "`guix package -p "$profile" -l 1 | cut -f3 | head -n1`" = "(current)"
@ -143,7 +143,7 @@ test "`guix package -p "$profile" -l 1 | cut -f3 | head -n1`" = "(current)"
# Roll-back to generation 0, and install---all at once.
guix package --bootstrap -p "$profile" --roll-back -i guile-bootstrap
test "`readlink_base "$profile"`" = "$profile-1-link"
test -x "$profile/bin/guile" && ! test -x "$profile/bin/make"
test -x "$profile/bin/guile" && test ! -x "$profile/bin/make"
# Install Make.
guix package --bootstrap -p "$profile" -e "$boot_make"
@ -175,7 +175,7 @@ test -z "`guix package -p "$profile" -l 3`"
rm "$profile"
guix package --bootstrap -p "$profile" -i guile-bootstrap
guix package --bootstrap -p "$profile_alt" -i gcc-bootstrap
! guix package -p "$profile" --search-paths | grep LIBRARY_PATH
guix package -p "$profile" --search-paths | grep LIBRARY_PATH && false
guix package -p "$profile" -p "$profile_alt" --search-paths \
| grep "LIBRARY_PATH.*$profile/lib.$profile_alt/lib"
@ -234,4 +234,4 @@ guix package --bootstrap -e "$boot_make"
test -f "$HOME/.guix-profile/bin/make"
guix package --bootstrap --roll-back
! test -f "$HOME/.guix-profile/bin/make"
test ! -f "$HOME/.guix-profile/bin/make"

View File

@ -37,7 +37,7 @@ rm -f "$profile" "$tmpfile"
trap 'rm -f "$profile" "$profile.lock" "$profile-"[0-9]* "$tmpfile"; rm -rf "$module_dir" t-home-'"$$" EXIT
# Use `-e' with a non-package expression.
! guix package --bootstrap -e +
guix package --bootstrap -e + && false
# Install a store item and make sure the version and output in the manifest
# are correct.
@ -57,23 +57,23 @@ guix gc --list-live | grep "`readlink "$profile-1-link"`"
# Installing the same package a second time does nothing.
guix package --bootstrap -p "$profile" -i guile-bootstrap
test -L "$profile" && test -L "$profile-1-link"
! test -f "$profile-2-link"
test ! -f "$profile-2-link"
test -f "$profile/bin/guile"
# Unsupported packages cannot be installed.
! guix package -e '(begin (use-modules (guix) (gnu packages base)) (package (inherit sed) (supported-systems (list))))' -n
guix package -e '(begin (use-modules (guix) (gnu packages base)) (package (inherit sed) (supported-systems (list))))' -n && false
case $(uname -m) in
x86_64|i[3456]86)
! guix package -i novena-eeprom -n
guix package -i novena-eeprom -n && false
break;;
*)
! guix package -i intelmetool -n
guix package -i intelmetool -n && false
break;;
esac
# Collisions are properly flagged (in this case, 'g-wrap' propagates
# guile@2.2, which conflicts with guile@2.0.)
! guix package --bootstrap -n -p "$profile" -i g-wrap guile@2.0
guix package --bootstrap -n -p "$profile" -i g-wrap guile@2.0 && false
guix package --bootstrap -n -p "$profile" -i g-wrap guile@2.0 \
--allow-collisions
@ -88,7 +88,7 @@ test "`guix package -p "$profile" --search-paths | wc -l`" = 1 # $PATH
type -P rm )
# Exit with 1 when a generation does not exist.
! guix package -p "$profile" --delete-generations=42
guix package -p "$profile" --delete-generations=42 && false
# Exit with 0 when trying to delete the zeroth generation.
guix package -p "$profile" --delete-generations=0
@ -101,12 +101,12 @@ guix package --bootstrap -i "glibc:debug" -p "$profile" -n
# Make sure nonexistent outputs are reported.
guix package --bootstrap -i "guile-bootstrap:out" -p "$profile" -n
! guix package --bootstrap -i "guile-bootstrap:does-not-exist" -p "$profile" -n
! guix package --bootstrap -i "guile-bootstrap:does-not-exist" -p "$profile"
guix package --bootstrap -i "guile-bootstrap:does-not-exist" -p "$profile" -n && false
guix package --bootstrap -i "guile-bootstrap:does-not-exist" -p "$profile" && false
# Make sure we get an error when trying to remove something that's not
# installed.
! guix package --bootstrap -r something-not-installed -p "$profile"
guix package --bootstrap -r something-not-installed -p "$profile" && false
# Check whether `--list-available' returns something sensible.
guix package -p "$profile" -A 'gui.*e' | grep guile
@ -118,8 +118,8 @@ guix package --show=guile | grep "^name: guile"
guix package --show=texlive
# Fail for non-existent packages or package/version pairs.
! guix package --show=does-not-exist
! guix package --show=emacs@42
guix package --show=does-not-exist && false
guix package --show=emacs@42 && false
# Search.
LC_MESSAGES=C
@ -163,19 +163,19 @@ guix package --search="" > /dev/null
# There's no generation older than 12 months, so the following command should
# have no effect.
generation="`readlink_base "$profile"`"
! guix package -p "$profile" --delete-generations=12m
guix package -p "$profile" --delete-generations=12m && false
test "`readlink_base "$profile"`" = "$generation"
# The following command should not delete the current generation, even though
# it matches the given pattern (see <http://bugs.gnu.org/19978>.) And since
# there's nothing else to delete, it should just fail.
guix package --list-generations -p "$profile"
! guix package --bootstrap -p "$profile" --delete-generations=1..
guix package --bootstrap -p "$profile" --delete-generations=1.. && false
test "`readlink_base "$profile"`" = "$generation"
# Make sure $profile is a GC root at this point.
real_profile="`readlink -f "$profile"`"
! guix gc -d "$real_profile"
guix gc -d "$real_profile" && false
test -d "$real_profile"
# Now, let's remove all the symlinks to $real_profile, and make sure
@ -278,22 +278,22 @@ do
guix gc --list-live | grep "`readlink "$profile_link"`"
guix package --bootstrap --roll-back
! test -f "$HOME/.guix-profile/bin"
! test -f "$HOME/.guix-profile/lib"
test ! -f "$HOME/.guix-profile/bin"
test ! -f "$HOME/.guix-profile/lib"
test "`readlink "$default_profile"`" = "`basename $default_profile-0-link`"
done
# Check whether '-p ~/.guix-profile' makes any difference.
# See <http://bugs.gnu.org/17939>.
! test -e "$HOME/.guix-profile-0-link"
! test -e "$HOME/.guix-profile-1-link"
test ! -e "$HOME/.guix-profile-0-link"
test ! -e "$HOME/.guix-profile-1-link"
guix package --bootstrap -p "$HOME/.guix-profile" -i guile-bootstrap
! test -e "$HOME/.guix-profile-1-link"
test ! -e "$HOME/.guix-profile-1-link"
guix package --bootstrap --roll-back -p "$HOME/.guix-profile"
! test -e "$HOME/.guix-profile-0-link"
test ! -e "$HOME/.guix-profile-0-link"
# Extraneous argument.
! guix package install foo-bar
guix package install foo-bar && false
# Make sure the "broken pipe" doesn't yield an error.
# Note: 'pipefail' is a Bash-specific option.
@ -382,7 +382,7 @@ cat > "$module_dir/package.scm"<<EOF
(define my-package coreutils) ;returns *unspecified*
EOF
! guix package --bootstrap --install-from-file="$module_dir/package.scm"
guix package --bootstrap --install-from-file="$module_dir/package.scm" && false
rm "$module_dir/package.scm"

View File

@ -37,12 +37,12 @@ GUIX_TEST_UPDATER_TARGETS='
("the-test-package" "" (("5.5" "file://'$PWD/$module_dir'/source"))))'
# No newer version available.
! guix refresh -t test idutils
guix refresh -t test idutils && false
case "$(guix refresh -t test idutils 2>&1)" in
*"$idutils_version"*"already the latest version"*) true;;
*) false;;
esac
! guix refresh -t test libreoffice
guix refresh -t test libreoffice && false
case "$(guix refresh -t test libreoffice 2>&1)" in
*"greater than the latest known version"*"1.0"*) true;;
*) false;;
@ -100,7 +100,7 @@ grep 'version "5.5"' "$module_dir/sample.scm"
grep "$(guix hash -H sha256 -f nix-base32 "$module_dir/source")" "$module_dir/sample.scm"
# Specifying a target version.
! guix refresh -t test guile=2.0.0
guix refresh -t test guile=2.0.0 && false
case "$(guix refresh -t test guile=2.0.0 2>&1)" in
*"failed to find"*"2.0.0"*) true;;
*) false;;

View File

@ -33,13 +33,13 @@ export XDG_CONFIG_HOME
guix shell --bootstrap --pure guile-bootstrap -- guile --version
# '--symlink' can only be used with --container.
! guix shell --bootstrap guile-bootstrap -S /dummy=bin/guile
guix shell --bootstrap guile-bootstrap -S /dummy=bin/guile && false
# '--ad-hoc' is a thing of the past.
! guix shell --ad-hoc guile-bootstrap
guix shell --ad-hoc guile-bootstrap && false
# Rejecting unsupported packages.
! guix shell -s armhf-linux intelmetool -n
guix shell -s armhf-linux intelmetool -n && false
# Test approximately that the child process does not inherit extra file
# descriptors. Ideally we'd check there's nothing more than 0, 1, and 2, but
@ -55,7 +55,7 @@ test "$(echo $fd_list | wc -w)" -le "$(echo $initial_fd_list | wc -w)"
cat > "$tmpdir/guix.scm" <<EOF
This is a broken guix.scm file.
EOF
! (cd "$tmpdir"; SHELL="$(type -P true)" guix shell --bootstrap 2> "stderr")
(cd "$tmpdir"; SHELL="$(type -P true)" guix shell --bootstrap 2> "stderr") && false
grep "not authorized" "$tmpdir/stderr"
rm "$tmpdir/stderr"
@ -122,7 +122,7 @@ then
done
# 'make-boot0' itself must not be listed.
! guix gc --references "$profile" | grep make-boot0
guix gc --references "$profile" | grep make-boot0 && false
# Honoring the local 'guix.scm' file.
echo '(@ (guix tests) gnu-make-for-tests)' > "$tmpdir/guix.scm"

View File

@ -65,7 +65,7 @@ cp "$tmpfile" "$tmpfile.bak"
initial_hash="$(guix hash "$tmpfile")"
guix style -f "$tmpfile"
if ! test "$initial_hash" = "$(guix hash "$tmpfile")"
if test "$initial_hash" != "$(guix hash "$tmpfile")"
then
cat "$tmpfile"
diff -u "$tmpfile.bak" "$tmpfile"
@ -73,8 +73,8 @@ then
fi
# Introduce random changes and try again.
sed -i "$tmpfile" -e's/ +/ /g'
! test "$initial_hash" = "$(guix hash "$tmpfile")"
sed -i "$tmpfile" -e's/ \+/ /g'
test "$initial_hash" != "$(guix hash "$tmpfile")"
guix style -f "$tmpfile"
test "$initial_hash" = "$(guix hash "$tmpfile")"

View File

@ -318,7 +318,7 @@ cat > "$tmpdir/config.scm" <<EOF
(bad-local-file "whatever.scm")
EOF
! guix system build "$tmpdir/config.scm" -n
guix system build "$tmpdir/config.scm" -n && false
guix system build "$tmpdir/config.scm" -n 2>&1 | \
grep "config\.scm:4:2: warning:.*whatever.*relative to current directory"