From 62cab99c3297a066f466780bb4d83a4f142538c7 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Mon, 12 Nov 2012 23:10:26 +0100
Subject: Add (guix download) and (guix build download).

* guix/download.scm, guix/build/download.scm: New files.
* Makefile.am (MODULES): Add them.
* tests/builders.scm ("url-fetch"): New test.
* distro/packages/bootstrap.scm (bootstrap-origin): Support
  `url-fetch'.
* guix/snix.scm (snix-derivation->guix-package): Use `url-fetch' instead
  of `http-fetch'.
---
 tests/builders.scm | 12 ++++++++++++
 1 file changed, 12 insertions(+)

(limited to 'tests')

diff --git a/tests/builders.scm b/tests/builders.scm
index d9dc5afa20..9cc86ef1c2 100644
--- a/tests/builders.scm
+++ b/tests/builders.scm
@@ -19,6 +19,7 @@
 
 (define-module (test-builders)
   #:use-module (guix http)
+  #:use-module (guix download)
   #:use-module (guix build-system)
   #:use-module (guix build-system gnu)
   #:use-module (guix store)
@@ -63,6 +64,17 @@
          (file-exists? out-path)
          (valid-path? %store out-path))))
 
+(test-assert "url-fetch"
+  (let* ((url      '("http://ftp.gnu.org/gnu/hello/hello-2.8.tar.gz"
+                     "ftp://ftp.gnu.org/gnu/hello/hello-2.8.tar.gz"))
+         (hash     (nix-base32-string->bytevector
+                    "0wqd8sjmxfskrflaxywc7gqw7sfawrfvdxd9skxawzfgyy0pzdz6"))
+         (drv-path (url-fetch %store url 'sha256 hash))
+         (out-path (derivation-path->output-path drv-path)))
+    (and (build-derivations %store (list drv-path))
+         (file-exists? out-path)
+         (valid-path? %store out-path))))
+
 (test-assert "gnu-build-system"
   (and (build-system? gnu-build-system)
        (eq? gnu-build (build-system-builder gnu-build-system))))
-- 
cgit 1.4.1