[PATCH] tests: Simplify shell exit status negation;

index 4c5eea05cf..e796c62f9a 100644

# Check the exit value upon import.

guix archive --import < "$archive"

# This one must not be listed as missing.

guix build guile-bootstrap > "$archive"

# This is not a valid store file name, so an error.

echo something invalid > "$archive"

# Check '--extract'.

guile -c "(use-modules (guix serialization))

guix archive -t < "$archive" | grep "^x /bin/guile"

guix archive -t < "$archive" | grep "^r /share/guile.*/boot-9\.scm"

diff --git a/tests/guix-build-branch.sh b/tests/guix-build-branch.sh

index c5b07e07c6..79aa06a58f 100644

test "$v0_1_0_drv" != "$latest_drv"

test "$v0_1_0_drv" != "$orig_drv"

diff --git a/tests/guix-build.sh b/tests/guix-build.sh

index 6c08857358..57ecba42be 100644

guix build --version

# Should fail.

# Source-less packages are accepted; they just return nothing.

guix build -e '(@ (gnu packages bootstrap) %bootstrap-glibc)' -S

(inputs (quasiquote (("sed" ,sed)))))) ;unbound variable

EOF

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

test "`guix build --log-file $out`" = "$log"

# Should fail because the name/version combination could not be found.

# Keep a symlink to the result, registered as a root.

result="t-result-$$"

test -x "$result/bin/guile"

# Should fail, because $result already exists.

rm -f "$result"

drv2=`guix build guile --with-input=gimp=ruby -d`

test "$drv1" = "$drv2"

# Deprecated/superseded packages.

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

# Invoking a monadic procedure.

guix build -e "(begin

guix build emacs

GUIX_BUILD_OPTIONS="--something-completely-crazy"

diff --git a/tests/guix-daemon.sh b/tests/guix-daemon.sh

index b58500966b..330ad68835 100644

GUIX_DAEMON_SOCKET="guix://$tcp_socket"

export GUIX_DAEMON_SOCKET

unset GUIX_DAEMON_SOCKET

kill "$daemon_pid"

diff --git a/tests/guix-download.sh b/tests/guix-download.sh

index 30f55fbe2b..5475d43e60 100644

guix download --version

# Make sure it fails here.

# This one should succeed.

guix download "file://$abs_top_srcdir/README"

cmp "$output" "$abs_top_srcdir/README"

# This one should fail.

diff --git a/tests/guix-environment.sh b/tests/guix-environment.sh

index 2faf38df06..f8be48f0c0 100644

grep '^PATH=' "$tmpdir/a"

grep '^GUIX_TEST_ABC=' "$tmpdir/a"

grep '^GUIX_TEST_DEF=' "$tmpdir/a"

# Make sure the exit value is preserved.

if guix environment --bootstrap --ad-hoc guile-bootstrap --pure \

done

# 'make-boot0' itself must not be listed.

# Make sure that the shell spawned with '--exec' sees the same environment

# as returned by '--search-paths'.

test "x$make_boot0_debug" != "x"

# Make sure the "debug" output is not listed.

# Compute the build environment for the initial GNU Make, but add in the

# bootstrap Guile as an ad-hoc addition.

diff --git a/tests/guix-gc.sh b/tests/guix-gc.sh

index 8284287730..f40619876d 100644

# For some operations, passing extra arguments is an error.

for option in "" "-C 500M" "--verify" "--optimize" "--list-roots"

do

done

# This should fail.

# Check the references of a .drv.

drv="`guix build guile-bootstrap -d`"

guix gc --references "$out"

guix gc --references "$out/bin/guile"

# Check derivers.

guix gc --derivers "$out" | grep "$drv"

guix gc --list-roots | grep "$PWD/guix-gc-root"

guix gc --list-live | grep "$drv"

rm guix-gc-root

guix gc --list-dead | grep "$drv"

guix gc -C 1KiB

# Check trivial error cases.

# Bug #19757

out="`guix build guile-bootstrap`"

diff --git a/tests/guix-git-authenticate.sh b/tests/guix-git-authenticate.sh

index 1c76e240b5..8ebbea398b 100644

v1_0_1_commit="d68de958b60426798ed62797ff7c96c327a672ac"

# This should fail because these commits lack '.guix-authorizations'.

# This should work thanks to '--historical-authorizations'.

guix git authenticate "$v1_0_0_commit" "$v1_0_0_signer" \

diff --git a/tests/guix-graph.sh b/tests/guix-graph.sh

index ccb4933c88..666660ab4b 100644

guix graph -e '(@ (gnu packages bootstrap) %bootstrap-guile)' \

| grep guile-bootstrap

# Try passing store file names.

# Try package transformation options.

guix graph git | grep 'label = "openssl'

guix graph git --with-input=openssl=libressl | grep 'label = "libressl'

# Try --load-path

guix graph -L $module_dir dummy | grep 'label = "dummy'

# Displaying shortest paths (or lack thereof).

path="\

emacs

diff --git a/tests/guix-hash.sh b/tests/guix-hash.sh

index 3538b9aeda..346355539f 100644

test `guix hash -H sha512 -f hex /dev/null` = cf83e1357eefb8bdf1542850d66d8007d620e4050b5715dc83f4a921d36ce9ce47d0d13c5d85f2b0ff8318d2877eec2f63b931bd47417a81a538327af927da3e

test `guix hash -H sha1 -f base64 /dev/null` = "2jmj7l5rSw0yVb/vlWAYkK/YBwk="

mkdir "$tmpdir"

echo -n executable > "$tmpdir/exe"

test `guix hash -r "$tmpdir"` = 10k1lw41wyrjf9mxydi0is5nkpynlsvgslinics4ppir13g7d74p

# Without '-r', this should fail.

# This should fail because /dev/null is a character device, which

# the archive format doesn't support.

# Adding a .git directory

mkdir "$tmpdir/.git"

test `guix hash -r $tmpdir -x` = 10k1lw41wyrjf9mxydi0is5nkpynlsvgslinics4ppir13g7d74p

# Without '-r', this should fail.

diff --git a/tests/guix-lint.sh b/tests/guix-lint.sh

index ebe79efb84..fdf548fbf1 100644

# 3) the description has a single space following the end-of-sentence period.

out=`guix lint -c synopsis,description dummy 2>&1`

out=`guix lint -c synopsis dummy 2>&1`

out=`guix lint -c description dummy 2>&1`

out=`guix lint -c description,synopsis dummy 2>&1`

grep -q 'invalid-checker: invalid checker'

# Make sure specifying multiple packages works.

guix lint -c inputs-should-be-native dummy dummy@42 dummy

unset GUIX_PACKAGE_PATH

out=`guix lint -L $module_dir -c synopsis,description dummy 2>&1`

# Make sure specifying multiple packages works.

guix lint -L $module_dir -c inputs-should-be-native dummy dummy@42 dummy

diff --git a/tests/guix-pack-relocatable.sh b/tests/guix-pack-relocatable.sh

index b8d36a02c6..a960ecd209 100644

grep 'GNU sed' "$test_directory/output"

# Check whether the exit code is preserved.

chmod -Rf +w "$test_directory"; rm -rf "$test_directory"/*

else

diff --git a/tests/guix-pack.sh b/tests/guix-pack.sh

index 39b64791e2..0339221ac2 100644

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`"

# Build a tarball with no compression.

guix pack --compression=none --bootstrap guile-bootstrap

diff --git a/tests/guix-package-aliases.sh b/tests/guix-package-aliases.sh

index e24bff3a56..e4ddace057 100644

test -x "$profile/bin/guile"

# Make sure '-r' isn't passed as-is to 'guix package'.

test -x "$profile/bin/guile"

guix upgrade --version

guix upgrade -n

guix upgrade gui.e -n

guix remove --version

guix remove --bootstrap guile-bootstrap -p "$profile"

! test -x "$profile/bin/guile"

test `guix package -p "$profile" -I | wc -l` -eq 0

guix search '\<board\>' game | grep '^name: gnubg'

guix show python@3 | grep "^name: python"

# "python@2" exists but is deprecated; make sure it doesn't show up.

# Specifying multiple packages.

output="`guix show sed grep | grep ^name:`"

diff --git a/tests/guix-package-net.sh b/tests/guix-package-net.sh

index 3876701fa2..6d21c6cff6 100644

= " guile-bootstrap"

# Exit with 1 when a generation does not exist.

# Remove a package.

guix package --bootstrap -p "$profile" -r "guile-bootstrap"

rm "$profile"

guix package --bootstrap -p "$profile" -i guile-bootstrap

guix package --bootstrap -p "$profile_alt" -i gcc-bootstrap

guix package -p "$profile" -p "$profile_alt" --search-paths \

| grep "LIBRARY_PATH.*$profile/lib.$profile_alt/lib"

diff --git a/tests/guix-package.sh b/tests/guix-package.sh

index 1f955257be..1a95b8e9a4 100644

trap 'rm -f "$profile" "$profile.lock" "$profile-"[0-9]* "$tmpfile"; rm -rf "$module_dir" t-home-'"$$" EXIT

# Use `-e' with a non-package expression.

# Install a store item and make sure the version and output in the manifest

# are correct.

# 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 \

--allow-collisions

type -P rm )

# Exit with 1 when a generation does not exist.

# Exit with 0 when trying to delete the zeroth generation.

guix package -p "$profile" --delete-generations=0

# Make sure nonexistent outputs are reported.

guix package --bootstrap -i "guile-bootstrap:out" -p "$profile" -n