From b0e0d0e99fab04fc374061adc7386b0f3f4b18c5 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Sun, 1 Jul 2012 17:32:03 +0200 Subject: Add builder-side utilities for phases, stream editing, & co. * guix/build/utils.scm (with-directory-excursion): New macro. (alist-cons-before, alist-cons-after, alist-replace): New procedures. (substitute): New procedure. * tests/build-utils.scm: New file. * Makefile.am (TESTS): Add `tests/build-utils.scm'. --- tests/build-utils.scm | 58 +++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 58 insertions(+) create mode 100644 tests/build-utils.scm (limited to 'tests/build-utils.scm') diff --git a/tests/build-utils.scm b/tests/build-utils.scm new file mode 100644 index 0000000000..4d86037708 --- /dev/null +++ b/tests/build-utils.scm @@ -0,0 +1,58 @@ +;;; Guix --- Nix package management from Guile. -*- coding: utf-8 -*- +;;; Copyright (C) 2012 Ludovic Courtès +;;; +;;; This file is part of Guix. +;;; +;;; Guix is free software; you can redistribute it and/or modify it +;;; under the terms of the GNU General Public License as published by +;;; the Free Software Foundation; either version 3 of the License, or (at +;;; your option) any later version. +;;; +;;; Guix is distributed in the hope that it will be useful, but +;;; WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;;; GNU General Public License for more details. +;;; +;;; You should have received a copy of the GNU General Public License +;;; along with Guix. If not, see . + + +(define-module (test-build-utils) + #:use-module (guix build utils) + #:use-module (srfi srfi-64)) + +(test-begin "build-utils") + +(test-equal "alist-cons-before" + '((a . 1) (x . 42) (b . 2) (c . 3)) + (alist-cons-before 'b 'x 42 '((a . 1) (b . 2) (c . 3)))) + +(test-equal "alist-cons-before, reference not found" + '((a . 1) (b . 2) (c . 3) (x . 42)) + (alist-cons-before 'z 'x 42 '((a . 1) (b . 2) (c . 3)))) + +(test-equal "alist-cons-after" + '((a . 1) (b . 2) (x . 42) (c . 3)) + (alist-cons-after 'b 'x 42 '((a . 1) (b . 2) (c . 3)))) + +(test-equal "alist-cons-after, reference not found" + '((a . 1) (b . 2) (c . 3) (x . 42)) + (alist-cons-after 'z 'x 42 '((a . 1) (b . 2) (c . 3)))) + +(test-equal "alist-replace" + '((a . 1) (b . 77) (c . 3)) + (alist-replace 'b 77 '((a . 1) (b . 2) (c . 3)))) + +(test-assert "alist-replace, key not found" + (not (false-if-exception + (alist-replace 'z 77 '((a . 1) (b . 2) (c . 3)))))) + +(test-end) + + +(exit (= (test-runner-fail-count (test-runner-current)) 0)) + +;;; Local Variables: +;;; eval: (put 'test-assert 'scheme-indent-function 1) +;;; eval: (put 'test-equal 'scheme-indent-function 1) +;;; End: -- cgit v1.2.3