summaryrefslogtreecommitdiff
path: root/tests/packages.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2012-11-09 23:59:11 +0100
committerLudovic Courtès <ludo@gnu.org>2012-11-09 23:59:11 +0100
commit9e782349fe38651f6a87cc2a03f760bcbd8250bd (patch)
tree25490a3890c19a5c41e8e2aea6a9d5423764dd6d /tests/packages.scm
parentcfeb75954a0fcf51acc2d33599e01e153a3570db (diff)
downloadgnu-guix-9e782349fe38651f6a87cc2a03f760bcbd8250bd.tar
gnu-guix-9e782349fe38651f6a87cc2a03f760bcbd8250bd.tar.gz
tests: Choose a less expensive test for packages.
* tests/packages.scm (%bootstrap-inputs): Remove. ("GNU Hello"): Rename to... ("GNU Make, bootstrap"): ... this. Build GNU-MAKE-BOOT0 instead of HELLO.
Diffstat (limited to 'tests/packages.scm')
-rw-r--r--tests/packages.scm22
1 files changed, 9 insertions, 13 deletions
diff --git a/tests/packages.scm b/tests/packages.scm
index 5838257e09..29ea691e9f 100644
--- a/tests/packages.scm
+++ b/tests/packages.scm
@@ -40,11 +40,6 @@
;; Make sure we build everything by ourselves.
(set-build-options %store #:use-substitutes? #f))
-(define %bootstrap-inputs
- ;; Use the bootstrap inputs so it doesn't take ages to run these tests.
- ;; This still involves building GNU Make and GNU Diffutils.
- (@@ (distro packages base) %boot0-inputs))
-
(test-begin "packages")
@@ -113,16 +108,17 @@
(let ((p (pk 'drv d (derivation-path->output-path d))))
(eq? 'hello (call-with-input-file p read))))))
-(test-assert "GNU Hello"
- (let ((hello (package-with-explicit-inputs hello %bootstrap-inputs
- #:guile %bootstrap-guile)))
- (and (package? hello)
- (or (location? (package-location hello))
- (not (package-location hello)))
- (let* ((drv (package-derivation %store hello))
+(test-assert "GNU Make, bootstrap"
+ ;; GNU Make is the first program built during bootstrap; we choose it
+ ;; here so that the test doesn't last for too long.
+ (let ((gnu-make (@@ (distro packages base) gnu-make-boot0)))
+ (and (package? gnu-make)
+ (or (location? (package-location gnu-make))
+ (not (package-location gnu-make)))
+ (let* ((drv (package-derivation %store gnu-make))
(out (derivation-path->output-path drv)))
(and (build-derivations %store (list drv))
- (file-exists? (string-append out "/bin/hello")))))))
+ (file-exists? (string-append out "/bin/make")))))))
(test-assert "find-packages-by-name"
(match (find-packages-by-name "hello")