[1] A test for macro 'aif' was added.

	modified:   test-utils.lisp

diff --git a/test/test-utils.lisp b/test/test-utils.lisp
index 8711992..c7f7fb9 100755 (executable)
--- a/test/test-utils.lisp
+++ b/test/test-utils.lisp
@@ -42,6 +42,15 @@
 (assert (eql 3
              (funcall (rcurry #'- 2) 5)))
 
+; tests for 'aif'
+(let ((exp '(let ((it pred))
+              (if it true false)))
+      (val (macroexpand-1 '(aif pred true false))))
+  (assert (not (eql (um:unify val exp)
+                    um:fail))
+          nil
+          "aif test  exp: ~A, val: ~A" exp val))
+
 ; tests for 'aif2'
 (assert
   (um:if-match '(mvbind (it ?win) pred