base.scm « services « gnu - guix - Wojtek's customized Guix

blob: b1eff89eccfdb3fd2f99ee38d615604e99cfff7d (about) (plain)

blob size (103KB) exceeds display size limit (100KB).

ream) #:use-module (guix tests) #:use-module (srfi srfi-64) #:use-module (ice-9 match)) (test-begin "upstream") (test-equal "coalesce-sources same version" '((source "foo" "1" ("ftp://example.org/foo-1.tar.xz" "ftp://example.org/foo-1.tar.gz") ("ftp://example.org/foo-1.tar.xz.sig" "ftp://example.org/foo-1.tar.gz.sig"))) (map (lambda (source) `(source ,(upstream-source-package source) ,(upstream-source-version source) ,(upstream-source-urls source) ,(upstream-source-signature-urls source))) (coalesce-sources (list (upstream-source (package "foo") (version "1") (urls '("ftp://example.org/foo-1.tar.gz")) (signature-urls '("ftp://example.org/foo-1.tar.gz.sig"))) (upstream-source (package "foo") (version "1") (urls '("ftp://example.org/foo-1.tar.xz")) (signature-urls '("ftp://example.org/foo-1.tar.xz.sig"))))))) (test-end)