From 1dfb715df0e3ab79e799bb13fd4a349f72e992ec Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Tue, 13 Nov 2012 00:34:56 +0100
Subject: tests: Remove extraneous test.
* tests/derivations.scm ("build-expression->derivation for fixed-output
derivation"): Remove test. It is redundant with that in builders.scm,
and doesn't work out of the box with the statically-linked
%BOOTSTRAP-GUILE.
---
tests/derivations.scm | 24 ------------------------
1 file changed, 24 deletions(-)
(limited to 'tests')
diff --git a/tests/derivations.scm b/tests/derivations.scm
index 618a7c4b96..bcedfbf948 100644
--- a/tests/derivations.scm
+++ b/tests/derivations.scm
@@ -412,30 +412,6 @@
(s (stat (string-append p "/guile/guix/nix"))))
(eq? (stat:type s) 'directory)))))
-(test-skip (if (false-if-exception (getaddrinfo "ftp.gnu.org" "http"))
- 0
- 1))
-
-(test-assert "build-expression->derivation for fixed-output derivation"
- (let* ((url "http://ftp.gnu.org/gnu/hello/hello-2.8.tar.gz")
- (builder
- `(begin
- (use-modules (web client) (web uri)
- (rnrs io ports) (srfi srfi-11))
- (let-values (((resp bv)
- (http-get (string->uri ,url) #:decode-body? #f)))
- (call-with-output-file %output
- (lambda (p)
- (put-bytevector p bv))))))
- (drv-path (build-expression->derivation
- %store "hello-2.8.tar.gz" (%current-system) builder '()
- #:hash (nix-base32-string->bytevector
- "0wqd8sjmxfskrflaxywc7gqw7sfawrfvdxd9skxawzfgyy0pzdz6")
- #:hash-algo 'sha256))
- (succeeded? (build-derivations %store (list drv-path))))
- (and succeeded?
- (file-exists? (derivation-path->output-path drv-path)))))
-
(test-assert "build-expression->derivation: same fixed-output path"
(let* ((builder1 '(call-with-output-file %output
(lambda (p)
--
cgit v1.2.3