diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2012-10-06 01:24:46 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2012-10-07 22:24:59 +0200 |
| commit | 14da91e2f0de4c8a7e1f3b706cc5d961030ff190 (patch) | |
| tree | a48c033a6b5e74aa195471423f9881874b2622b0 /tests/builders.scm | |
| parent | 81c7948d9acd3e203e5fd7185dbead33c11d4a92 (diff) | |
| download | guix-14da91e2f0de4c8a7e1f3b706cc5d961030ff190.tar guix-14da91e2f0de4c8a7e1f3b706cc5d961030ff190.tar.gz | |
tests: Use bootstrap and Nixpkgs inputs to be less costly.
* tests/builders.scm (%bootstrap-inputs, %bootstrap-guile): New
variables.
("gnu-build"): Use them, by setting `#:implicit-inputs? #f' and `#:guile'.
* tests/packages.scm (%bootstrap-inputs, %bootstrap-guile): New
variables.
("trivial"): Pass `#:guile %bootstrap-guile'.
("GNU Hello"): Use `package-with-explicit-inputs' to use
%BOOTSTRAP-GUILE and %BOOTSTRAP-INPUTS.
Diffstat (limited to 'tests/builders.scm')
| -rw-r--r-- | tests/builders.scm | 18 |
1 files changed, 17 insertions, 1 deletions
diff --git a/tests/builders.scm b/tests/builders.scm index 762944ba73..629c88c1e5 100644 --- a/tests/builders.scm +++ b/tests/builders.scm @@ -32,6 +32,18 @@ (define %store (false-if-exception (open-connection))) +(define %bootstrap-inputs + ;; Derivations taken from Nixpkgs, so that the initial tests don't + ;; take forever. + (and (file-exists? (%nixpkgs-directory)) + `(("make" ,(nixpkgs-derivation "gnumake")) + ("diffutils" ,(nixpkgs-derivation "diffutils")) + ,@(@@ (distro packages base) %bootstrap-inputs)))) + +(define %bootstrap-guile + (@@ (distro packages base) %bootstrap-guile)) + + (test-begin "builders") (test-assert "http-fetch" @@ -48,13 +60,17 @@ (and (build-system? gnu-build-system) (eq? gnu-build (build-system-builder gnu-build-system)))) +(test-skip (if (file-exists? (%nixpkgs-directory)) 1 0)) + (test-assert "gnu-build" (let* ((url "http://ftp.gnu.org/gnu/hello/hello-2.8.tar.gz") (hash (nix-base32-string->bytevector "0wqd8sjmxfskrflaxywc7gqw7sfawrfvdxd9skxawzfgyy0pzdz6")) (tarball (http-fetch %store url 'sha256 hash)) (build (gnu-build %store "hello-2.8" tarball - `(("gawk" ,(nixpkgs-derivation "gawk"))))) + %bootstrap-inputs + #:implicit-inputs? #f + #:guile %bootstrap-guile)) (out (derivation-path->output-path build))) (and (build-derivations %store (list (pk 'hello-drv build))) (valid-path? %store out) |