diff options
author | Ludovic Courtès <ludo@gnu.org> | 2013-01-02 01:04:37 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2013-01-02 01:04:37 +0100 |
commit | 97d3998e7a8a8e22fbef2e42db66456b826b1695 (patch) | |
tree | 28c146b97e8e79cdcb36e5b83d1c649b04beeea9 /tests/union.scm | |
parent | 52b8e5fc30f42914c1dadeca4243a5b55467be48 (diff) | |
download | guix-97d3998e7a8a8e22fbef2e42db66456b826b1695.tar.gz |
tests: Adjust to not rely on /bin/sh.
* tests/derivations.scm (%bash): New variable. Replace occurrences of "/bin/sh" by %BASH. * tests/union.scm ("union-build"): Delete duplicates from %BOOTSTRAP-INPUTS.
Diffstat (limited to 'tests/union.scm')
-rw-r--r-- | tests/union.scm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/tests/union.scm b/tests/union.scm index c839855ef4..b2242a834b 100644 --- a/tests/union.scm +++ b/tests/union.scm @@ -1,5 +1,5 @@ ;;; Guix --- Nix package management from Guile. -*- coding: utf-8 -*- -;;; Copyright (C) 2012 Ludovic Courtès <ludo@gnu.org> +;;; Copyright (C) 2012, 2013 Ludovic Courtès <ludo@gnu.org> ;;; ;;; This file is part of Guix. ;;; @@ -26,6 +26,7 @@ #:use-module ((guix build utils) #:select (with-directory-excursion directory-exists?)) #:use-module (distro packages bootstrap) + #:use-module (srfi srfi-1) #:use-module (srfi srfi-64) #:use-module (ice-9 match)) @@ -74,7 +75,9 @@ (let* ((inputs (map (match-lambda ((name package) `(,name ,(package-derivation %store package)))) - %bootstrap-inputs)) + (delete-duplicates %bootstrap-inputs + (lambda (i1 i2) + (eq? (second i1) (second i2)))))) (builder `(begin (use-modules (guix build union)) (union-build (assoc-ref %outputs "out") |