summaryrefslogtreecommitdiff
path: root/tests/builders.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2012-10-28 01:58:39 +0200
committerLudovic Courtès <ludo@gnu.org>2012-10-28 01:58:39 +0200
commit8f3ecbd7157aa4bf63069d69280351bd04c85eb0 (patch)
tree938beea4c0673199829a8d27cc84f0cd035ed820 /tests/builders.scm
parent9144af5aa7b757b1dacd3f39ebdac8a31bc36e9f (diff)
tests: Use our own bootstrap tools.
* tests/builders.scm (%bootstrap-inputs): Use %BOOT0-INPUTS from the distro. * tests/packages.scm (%bootstrap-inputs): Likewise. * tests/derivations.scm (%coreutils): Alias for %BOOTSTRAP-COREUTILS&CO.
Diffstat (limited to 'tests/builders.scm')
-rw-r--r--tests/builders.scm18
1 files changed, 10 insertions, 8 deletions
diff --git a/tests/builders.scm b/tests/builders.scm
index 629c88c1e5..8d2d75aa7f 100644
--- a/tests/builders.scm
+++ b/tests/builders.scm
@@ -24,6 +24,8 @@
#:use-module (guix store)
#:use-module (guix utils)
#:use-module (guix derivations)
+ #:use-module ((guix packages) #:select (package-derivation))
+ #:use-module (ice-9 match)
#:use-module (srfi srfi-1)
#:use-module (srfi srfi-64))
@@ -33,12 +35,14 @@
(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))))
+ ;; Use the bootstrap inputs so it doesn't take ages to run these tests.
+ ;; This still involves building Make, Diffutils, and Findutils.
+ ;; XXX: We're relying on the higher-level `package-derivations' here.
+ (and %store
+ (map (match-lambda
+ ((name package)
+ (list name (package-derivation %store package))))
+ (@@ (distro packages base) %boot0-inputs))))
(define %bootstrap-guile
(@@ (distro packages base) %bootstrap-guile))
@@ -60,8 +64,6 @@
(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