mirror of
git://git.savannah.gnu.org/guix/guix-cuirass.git
synced 2023-12-14 06:03:04 +01:00
f301378d94
* src/cuirass/utils.scm (mkdir-p, make-user-module, call-with-temporary-directory, with-directory-excursion): Remove because already defined in guix. * tests/utils (with-directory-excursion): Remove associated test. * src/cuirass/base.scm: Use (guix build utils) to provide procedure removed from (cuirass utils). * bin/evaluate.in: Ditto. * bin/cuirass.in: Use "make-user-module" provided by (guix ui).
39 lines
1.2 KiB
Scheme
39 lines
1.2 KiB
Scheme
;;;; utils.scm -- tests for (cuirass utils) module
|
|
;;;
|
|
;;; Copyright © 2016 Mathieu Lirzin <mthl@gnu.org>
|
|
;;;
|
|
;;; This file is part of Cuirass.
|
|
;;;
|
|
;;; Cuirass 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.
|
|
;;;
|
|
;;; Cuirass 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 Cuirass. If not, see <http://www.gnu.org/licenses/>.
|
|
|
|
(use-modules (cuirass utils)
|
|
(srfi srfi-64))
|
|
|
|
(define dir-1 (make-parameter ""))
|
|
(define dir-2 (make-parameter ""))
|
|
|
|
(test-begin "utils")
|
|
|
|
(test-assert "alist?"
|
|
(and (alist? '())
|
|
(alist? '(("foo" 1 2)))
|
|
(alist? '(("foo" . 1)
|
|
("bar" . 2)))
|
|
(not (alist? 3))
|
|
(not (alist? '(1 2 3)))
|
|
(not (alist? 'foo))
|
|
(not (alist? #:bar))))
|
|
|
|
(test-end)
|