guix - Wojtek's customized Guix

diff options

Diffstat (limited to '.mumi')

0 files changed, 0 insertions, 0 deletions

eadlink "$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/bin/guile" # Unsupported packages cannot be installed. 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 && false break;; *) 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 && false guix package --bootstrap -n -p "$profile" -i g-wrap 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 '\<board\>' > "$tmpfile" grep '^name: pcb' "$tmpfile" grep '^name: gnubg' "$tmpfile" # Second we get only board games. guix package -s '\<board\>' -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: <https://bugs.gnu.org/30566>. mkdir "$module_dir" cat > "$module_dir/foo.scm"<<EOF (define-module (foo) #:use-module (guix packages) #:use-module (gnu packages base)) (define-public deprecated (deprecated-package "fileutils-is-the-old-name" coreutils)) EOF guix build -L "$module_dir" -e '(@ (foo) deprecated)' -n test "`guix package -L "$module_dir" -s ^fileutils-is-the-old-name$ | grep ^name:`" = "" rm -rf "$module_dir" # Make sure `--search' can display all the packages. 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 && 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.. && 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 # <https://issues.guix.gnu.org/55316>. mkdir "$module_dir" cat > "$module_dir/test.scm" <<EOF (define-module (test) #:use-module (guix packages) #:use-module (gnu packages base) #:use-module (guix build-system trivial)) (define-public dummy-package (package (name "dummy-package") (version "1") (source #f) (build-system trivial-build-system) (propagated-inputs (list hello)) (synopsis "dummy") (description "dummy") (home-page "dummy") (license #f))) EOF guix package -p "$profile" -L "$module_dir"\ -i hello dummy-package \ --without-tests=hello -n rm "$module_dir/test.scm" rmdir "$module_dir" # Profiles with a relative file name. Make sure we don't create dangling # symlinks--see bug report at # <https://lists.gnu.org/archive/html/guix-devel/2018-07/msg00036.html>. 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 <http://bugs.gnu.org/17939>. 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"<<EOF (define-module (foo) #:use-module (guix packages) #:use-module (gnu packages emacs)) (define-public x (package (inherit emacs) (name "emacs-foo-bar") (version "42.77.0"))) EOF guix package -A emacs-foo-bar -L "$module_dir" | grep 42 guix package -i emacs-foo-bar@42 -n -L "$module_dir" # Same thing using the 'GUIX_PACKAGE_PATH' environment variable. GUIX_PACKAGE_PATH="$module_dir" export GUIX_PACKAGE_PATH guix package -A emacs-foo-bar | grep 42 guix package -i emacs-foo-bar@42 -n # Make sure GUIX_PACKAGE_PATH/'-L' takes precedence in case of duplicate packages. cat > "$module_dir/bar.scm"<<EOF (define-module (bar) #:use-module (guix packages)) (define-public hello (package (inherit (@@ (gnu packages base) hello)) (synopsis "an overridden version of GNU hello"))) EOF guix package -i hello -n 2>&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"<<EOF This is a fake patch. EOF cat > "$module_dir/foo.scm"<<EOF (define-module (foo) #:use-module (guix packages) #:use-module (gnu packages) #:use-module (gnu packages emacs)) (define-public x (package (inherit emacs) (source (origin (inherit (package-source emacs)) (patches (list (search-patch "emacs.patch"))))) (name "emacs-foo-bar-patched") (version "42.42.42"))) (define-public y (package (inherit emacs) (name "super-non-portable-emacs") (supported-systems '("foobar64-hurd")))) EOF guix package -i emacs-foo-bar-patched -n # Same when -L is used. ( unset GUIX_PACKAGE_PATH; \ guix package -L "$module_dir" -i emacs-foo-bar-patched -n ) # Make sure installing from a file works. cat > "$module_dir/package.scm"<<EOF (use-modules (gnu)) (use-package-modules bootstrap) %bootstrap-guile EOF guix package --bootstrap --install-from-file="$module_dir/package.scm" # Make sure an error is raised if the file doesn't return a package. cat > "$module_dir/package.scm"<<EOF (use-modules (gnu packages base)) (define my-package coreutils) ;returns *unspecified* EOF guix package --bootstrap --install-from-file="$module_dir/package.scm" && false rm "$module_dir/package.scm" # This one should not show up in searches since it's no supported on the # current system. test "`guix package -A super-non-portable-emacs`" = "" test "`guix package -s super-non-portable-emacs | grep ^systems:`" = "systems: " # Don't upgrade packages marked for removal: <http://bugs.gnu.org/27262>. guix package --bootstrap -p "$profile" -i guile-bootstrap cat > "$module_dir/foo.scm"<<EOF (define-module (foo) #:use-module (guix) #:use-module (gnu packages bootstrap)) (define-public x (package (inherit %bootstrap-guile) (version "42"))) EOF guix package --bootstrap -p "$profile" -r guile-bootstrap -u guile test ! -f "$profile/bin/guile" guix package --bootstrap -p "$profile" --roll-back test -f "$profile/bin/guile" rm "$profile-2-link" unset GUIX_PACKAGE_PATH # Using 'GUIX_BUILD_OPTIONS'. available="`guix package -A | sort`" GUIX_BUILD_OPTIONS="--dry-run --no-grafts" export GUIX_BUILD_OPTIONS # Make sure $GUIX_BUILD_OPTIONS is not simply appended to the command-line, # which would break 'guix package -A' and similar. available2="`guix package -A | sort`" test "$available2" = "$available" guix package -I # Restore '--no-grafts', which makes sure we don't end up building stuff when # '--dry-run' is passed. GUIX_BUILD_OPTIONS="--no-grafts" # Install using the "imperative model", export a manifest, instantiate it, and # make sure we get the same profile. guix package --bootstrap -i guile-bootstrap --without-tests=foo profile_directory="$(readlink -f "$default_profile")" guix package --export-manifest > "$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"<<EOF (use-package-modules bootstrap) (packages->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"<<EOF (use-modules (gnu packages bootstrap) (guix)) (define p (package (inherit %bootstrap-guile) (name "eliug"))) (packages->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"<<EOF (use-modules (guix inferior)) (define i (open-inferior "$abs_top_srcdir" #:command "scripts/guix")) (let ((guile (car (lookup-inferior-packages i "guile-bootstrap")))) (packages->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"<<EOF (use-package-modules bootstrap) (packages->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"<<EOF (define-module (foo) #:use-module (guix packages) #:use-module (guix build-system trivial)) (define-public dummy-package (package (name "dummy-package") (version "dummy-version") (outputs '("out" "dummy-output")) (source #f) ;; Without a real build system, the "guix package -s" command will fail. (build-system trivial-build-system) (synopsis "dummy-synopsis") (description "dummy-description") (home-page "https://dummy-home-page") (license #f))) EOF guix package -L "$module_dir" -s dummy-output > /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


context:
space:
mode: