# GNU Guix --- Functional package management for GNU # Copyright © 2012-2022 Ludovic Courtès # Copyright © 2013 Nikita Karetnikov # Copyright © 2022 Josselin Poiret # # This file is part of GNU Guix. # # GNU Guix is free software; you can redistribute it and/or modify it # under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 3 of the License, or (at # your option) any later version. # # GNU Guix is distributed in the hope that it will be useful, but # WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with GNU Guix. If not, see . # # Test the `guix package' command-line utility. # guix package --version readlink_base () { basename `readlink "$1"` } m
aboutsummaryrefslogtreecommitdiff
ap guile@2.0 \ --allow-collisions # No search path env. var. here. guix package -p "$profile" --search-paths guix package -p "$profile" --search-paths | grep '^export PATH=' test "`guix package -p "$profile" --search-paths | wc -l`" = 1 # $PATH ( set -e; set -x; \ eval `guix package --search-paths=prefix -p "$PWD/$profile"`; \ test "`type -P guile`" = "$PWD/$profile/bin/guile" ; \ type -P rm ) # Exit with 1 when a generation does not exist. 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 # Make sure multiple arguments to -i works. guix package --bootstrap -i guile zile -p "$profile" -n # Make sure the `:' syntax works. 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 && 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" && false # Check whether `--list-available' returns something sensible. guix package -p "$profile" -A 'gui.*e' | grep guile # Check whether `--show' returns something sensible. guix package --show=guile | grep "^name: guile" # Ensure `--show' doesn't fail for packages with non-package inputs. guix package --show=texlive # Fail for non-existent packages or package/version pairs. guix package --show=does-not-exist && false guix package --show=emacs@42 && false # Search. LC_MESSAGES=C export LC_MESSAGES test "`guix package -s "An example GNU package" | grep ^name:`" = \ "name: hello" test -z "`guix package -s "n0t4r341p4ck4g3"`" # Search with one and then two regexps. # First we get printed circuit boards *and* board games. guix package -s '\' > "$tmpfile" grep '^name: pcb' "$tmpfile" grep '^name: gnubg' "$tmpfile" # Second we get only board games. guix package -s '\' -s game > "$tmpfile" grep -v '^name: pcb' "$tmpfile" > /dev/null grep '^name: gnubg' "$tmpfile" rm -f "$tmpfile" # Make sure deprecated packages don't show up: . mkdir "$module_dir" cat > "$module_dir/foo.scm"< /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 && false test "`readlink_base "$profile"`" = "$generation" # The following command should not delete the current generation, even though # it matches the given pattern (see .) 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.. && 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" && false test -d "$real_profile" # Now, let's remove all the symlinks to $real_profile, and make sure # $real_profile is no longer a GC root. rm "$profile" "$profile"-[0-9]-link guix gc -d "$real_profile" [ ! -d "$real_profile" ] # Package transformations. # Make sure we get the right version number when using '--with-source'. mkdir "$module_dir" emacs_tarball="$module_dir/emacs-42.5.9rc7.tar.gz" touch "$emacs_tarball" guix package -p "$profile" -i emacs --with-source="$emacs_tarball" -n \ 2> "$tmpfile" grep -E 'emacs[[:blank:]]+42\.5\.9rc7' "$tmpfile" rm "$emacs_tarball" "$tmpfile" rmdir "$module_dir" # Install with package transformations. guix install --bootstrap -p "$profile" sed --with-input=sed=guile-bootstrap grep "sed=guile-bootstrap" "$profile/manifest" test "$(readlink -f "$profile/bin/guile")" \ = "$(guix build guile-bootstrap)/bin/guile" test ! -f "$profile/bin/sed" # Make sure the package transformation is preserved. guix package --bootstrap -p "$profile" -u grep "sed=guile-bootstrap" "$profile/manifest" test "$(readlink -f "$profile/bin/guile")" \ = "$(guix build guile-bootstrap)/bin/guile" test ! -f "$profile/bin/sed" rm "$profile" "$profile"-[0-9]-link # Make sure transformations apply to propagated inputs and don't lead to # conflicts when installing them alongside, see # . mkdir "$module_dir" cat > "$module_dir/test.scm" <. mkdir -p "$module_dir/foo" ( cd "$module_dir" ; \ guix package --bootstrap -i guile-bootstrap -p foo/prof ) test -f "$module_dir/foo/prof/bin/guile" rm "$module_dir/foo"/* rmdir "$module_dir/foo" rmdir "$module_dir" # # Try with the default profile. # XDG_CACHE_HOME="${XDG_CACHE_HOME:-$HOME/.cache}" export XDG_CACHE_HOME HOME="$PWD/t-home-$$" export HOME mkdir -p "$HOME" # Get the canonical directory name so that 'guix package' recognizes it. HOME="`cd $HOME; pwd -P`" guix package --bootstrap -i guile-bootstrap test -L "$HOME/.guix-profile" test -f "$HOME/.guix-profile/bin/guile" # Move to the empty profile. default_profile="`readlink "$HOME/.guix-profile"`" for i in `seq 1 3` do # Make sure the current generation is a GC root. profile_link="`readlink "$default_profile"`" 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 "`readlink "$default_profile"`" = "`basename $default_profile-0-link`" done # Check whether '-p ~/.guix-profile' makes any difference. # See . 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" guix package --bootstrap --roll-back -p "$HOME/.guix-profile" test ! -e "$HOME/.guix-profile-0-link" # Extraneous argument. guix package install foo-bar && false # Make sure the "broken pipe" doesn't yield an error. # Note: 'pipefail' is a Bash-specific option. set -o pipefail || true guix package -A g | head -1 2> "$HOME/err1" guix package -I | head -1 2> "$HOME/err2" test "`cat "$HOME/err1" "$HOME/err2"`" = "" # Make sure '-L' extends the package module search path. mkdir "$module_dir" cat > "$module_dir/foo.scm"< "$module_dir/bar.scm"<&1 | grep choosing.*bar.scm ( unset GUIX_PACKAGE_PATH; \ guix package -i hello -n -L "$module_dir" 2>&1 | grep choosing.*bar.scm ) # Make sure patches that live under $GUIX_PACKAGE_PATH are found. cat > "$module_dir/emacs.patch"< "$module_dir/foo.scm"< "$module_dir/package.scm"< "$module_dir/package.scm"<. guix package --bootstrap -p "$profile" -i guile-bootstrap cat > "$module_dir/foo.scm"< "$tmpfile" grep 'without-tests.*foo' "$tmpfile" guix package --rollback --bootstrap guix package --bootstrap -m "$tmpfile" test "$(readlink -f "$default_profile")" = "$profile_directory" guix package --export-manifest > "$tmpfile.2nd" cmp "$tmpfile" "$tmpfile.2nd" rm -f "$tmpfile.2nd" guix package --rollback --bootstrap # Applying a manifest file. cat > "$module_dir/manifest.scm"<manifest (list %bootstrap-guile)) EOF guix package --bootstrap -m "$module_dir/manifest.scm" guix package -I | grep guile test `guix package -I | wc -l` -eq 1 # Export a manifest, instantiate it, and make sure we get the same profile. profile_directory="$(readlink -f "$default_profile")" guix package --export-manifest > "$tmpfile" guix package --rollback --bootstrap guix package --bootstrap -m "$tmpfile" test "$(readlink -f "$default_profile")" = "$profile_directory" guix package --rollback --bootstrap # Applying two manifests. cat > "$module_dir/manifest2.scm"<manifest (list p)) EOF guix package --bootstrap \ -m "$module_dir/manifest.scm" -m "$module_dir/manifest2.scm" guix package -I | grep guile guix package -I | grep eliug test `guix package -I | wc -l` -eq 2 guix package --rollback --bootstrap # Applying a manifest file with inferior packages. cat > "$module_dir/manifest.scm"<manifest (list guile))) EOF guix package --bootstrap -m "$module_dir/manifest.scm" guix package -I | grep guile test `guix package -I | wc -l` -eq 1 # Error reporting. cat > "$module_dir/manifest.scm"<manifest (list %bootstrap-guile wonderful-package-that-does-not-exist)) EOF if guix package --bootstrap -n -m "$module_dir/manifest.scm" \ 2> "$module_dir/stderr" then false else cat "$module_dir/stderr" grep "manifest.scm:[1-4]:.*wonderful-package.*: unbound variable" \ "$module_dir/stderr" fi # Verify that package outputs are included in search results. rm -rf "$module_dir" mkdir "$module_dir" cat > "$module_dir/foo.scm"< /tmp/out test "`guix package -L "$module_dir" -s dummy-output | grep ^name:`" = "name: dummy-package" rm -rf "$module_dir" # Make sure we can see user profiles. guix package --list-profiles | grep "$profile" guix package --list-profiles | grep '\.guix-profile' # Make sure we can properly lock a profile. mkdir "$module_dir" echo "(open-output-file \"$module_dir/ready\") (sleep 60)" \ > "$module_dir/manifest.scm" guix package -m "$module_dir/manifest.scm" -p "$module_dir/profile" & pid=$! while [ ! -f "$module_dir/ready" ] ; do sleep 0.5 ; done if guix install emacs -p "$module_dir/profile"; then kill $pid; false; else true; fi kill $pid
AgeCommit message (Expand)Author