From e58911de37f600dffce3c562ff1d26809343d420 Mon Sep 17 00:00:00 2001
From: Mathieu Lirzin <mthl@gnu.org>
Date: Sat, 30 Jul 2016 22:57:49 +0200
Subject: utils: Add 'alist?' procedure.

* src/cuirass/utils.scm (alist?): New procedure.
* tests/utils.scm ("alist?"): New test.
---
 tests/utils.scm | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'tests')

diff --git a/tests/utils.scm b/tests/utils.scm
index 496cbee..6a14355 100644
--- a/tests/utils.scm
+++ b/tests/utils.scm
@@ -25,6 +25,16 @@
 
 (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-assert "with-directory-excursion"
   (let ((old (getcwd))
         (tmp (tmpnam)))
-- 
cgit v1.2.3