123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241 |
- guix build --version
- if guix build -e +;
- then false; else true; fi
- guix build -e '(@ (gnu packages bootstrap) %bootstrap-glibc)' -S
- test "`guix build -e '(@ (gnu packages bootstrap) %bootstrap-glibc)' -S`" = ""
- guix build -e '(@@ (gnu packages bootstrap) %bootstrap-guile)' | \
- grep -e '-guile-'
- guix build hello -d | \
- grep -e '-hello-[0-9\.]\+\.drv$'
- GUIX_DAEMON_SOCKET="file://$NIX_STATE_DIR/daemon-socket/socket" \
- guix build -e '(@@ (gnu packages bootstrap) %bootstrap-guile)'
- ( if GUIX_DAEMON_SOCKET="weird://uri" \
- guix build -e '(@@ (gnu packages bootstrap) %bootstrap-guile)'; \
- then exit 1; fi )
- module_dir="t-guix-build-$$"
- mkdir "$module_dir"
- trap "rm -rf $module_dir" EXIT
- cat > "$module_dir/foo.scm"<<EOF
- (define-module (foo)
-
-
-
-
- (define-public foo
- (package
- (name "foo")
- (version "42")
- (source (origin
- (method url-fetch)
- (uri "http://www.example.com/foo.tar.gz")
- (sha256
- (base32
- "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"))))
- (build-system trivial-build-system)
- (inputs
- (quasiquote (("bar" ,bar))))
- (home-page "www.example.com")
- (synopsis "Dummy package")
- (description "foo is a dummy package for testing.")
- (license
- (define-public bar
- (package
- (name "bar")
- (version "9001")
- (source (origin
- (method url-fetch)
- (uri "http://www.example.com/bar.tar.gz")
- (sha256
- (base32
- "yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy"))))
- (build-system trivial-build-system)
- (inputs
- (quasiquote
- (("data" ,(origin
- (method url-fetch)
- (uri "http://www.example.com/bar.dat")
- (sha256
- (base32
- "zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz")))))))
- (home-page "www.example.com")
- (synopsis "Dummy package")
- (description "bar is a dummy package for testing.")
- (license
- (define-public baz
- (dummy-package "baz" (replacement foo)))
- (define-public superseded
- (deprecated-package "superseded" bar))
- EOF
- GUIX_PACKAGE_PATH="$module_dir"
- export GUIX_PACKAGE_PATH
- guix build -d -S foo
- guix build -d -S foo | grep -e 'foo\.tar\.gz'
- (unset GUIX_BUILD_OPTIONS;
- test "`guix build -d -S baz`" = "`guix build -d -S foo`")
- guix build -d --sources=package foo
- guix build -d --sources=package foo | grep -e 'foo\.tar\.gz'
- guix build -d --sources bar
- test `guix build -d --sources bar \
- | grep -e 'bar\.tar\.gz' -e 'bar\.dat' \
- | wc -l` -eq 2
- guix build -d --sources=all bar
- test `guix build -d --sources bar \
- | grep -e 'bar\.tar\.gz' -e 'bar\.dat' \
- | wc -l` -eq 2
- guix build -d --sources=transitive foo
- test `guix build -d --sources=transitive foo \
- | grep -e 'foo\.tar\.gz' -e 'bar\.tar\.gz' -e 'bar\.dat' \
- | wc -l` -eq 3
- drv="`guix build -d -e '(@@ (gnu packages bootstrap) %bootstrap-guile)'`"
- out="`guix build -e '(@@ (gnu packages bootstrap) %bootstrap-guile)'`"
- log="`guix build --log-file $drv`"
- echo "$log" | grep log/.*guile.*drv
- test -f "$log"
- test "`guix build -e '(@@ (gnu packages bootstrap) %bootstrap-guile)' --log-file`" \
- = "$log"
- test "`guix build --log-file guile-bootstrap`" = "$log"
- test "`guix build --log-file $out`" = "$log"
- if guix build hello-0.0.1 -n; then false; else true; fi
- result="t-result-$$"
- guix build -r "$result" \
- -e '(@@ (gnu packages bootstrap) %bootstrap-guile)'
- test -x "$result/bin/guile"
- if guix build -r "$result" -e '(@@ (gnu packages bootstrap) %bootstrap-guile)'
- then false; else true; fi
- rm -f "$result"
- guix build coreutils --target=mips64el-linux-gnu --dry-run --no-substitutes
- drv1=`guix build guix --with-input=guile@2.0=guile@2.2 -d`
- drv2=`guix build guix -d`
- test "$drv1" != "$drv2"
- drv1=`guix build guile -d`
- drv2=`guix build guile --with-input=gimp=ruby -d`
- test "$drv1" = "$drv2"
- if guix build guile --with-input=libunistring=something-really-silly
- then false; else true; fi
- test "`guix build superseded -d`" = "`guix build bar -d`"
- guix build -n time
- guix build -n time@1.8
- if guix build -n time@3.2;
- then false; else true; fi
- if guix build -n something-that-will-never-exist;
- then false; else true; fi
- guix build -e "(begin
- (use-modules (guix gexp))
- (lambda ()
- (gexp->derivation \"test\"
- (gexp (mkdir (ungexp output))))))" \
- --dry-run
- guix build -e '#~(mkdir #$output)' -d
- guix build -e '#~(mkdir #$output)' -d | grep 'gexp\.drv'
- cat > "$module_dir/package.scm"<<EOF
- (use-modules (gnu))
- (use-package-modules bootstrap)
- %bootstrap-guile
- EOF
- guix build --file="$module_dir/package.scm"
- cat > "$module_dir/proc.scm"<<EOF
- (use-modules (guix gexp))
- (lambda ()
- (gexp->derivation "test"
- (gexp (mkdir (ungexp output)))))
- EOF
- guix build --file="$module_dir/proc.scm" --dry-run
- cat > "$module_dir/gexp.scm"<<EOF
- (use-modules (guix gexp))
- (gexp (mkdir (ungexp output)))
- EOF
- guix build --file="$module_dir/gexp.scm" -d
- guix build --file="$module_dir/gexp.scm" -d | grep 'gexp\.drv'
- GUIX_BUILD_OPTIONS="--dry-run --no-grafts"
- export GUIX_BUILD_OPTIONS
- guix build emacs
- GUIX_BUILD_OPTIONS="--something-completely-crazy"
- if guix build emacs;
- then false; else true; fi
|