From 1dfb715df0e3ab79e799bb13fd4a349f72e992ec Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= 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/derivations.scm') 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