diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/utils.scm | 10 |
1 files changed, 10 insertions, 0 deletions
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))) |