X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcheck.lisp;fp=src%2Fcheck.lisp;h=e2a4a9552a263cc876e2f1bedcbf5db20b460a5f;hb=b82a10a08a56c17d920e8a1aa42979f57ef675f1;hp=8d5f99fa971e2cc6b02f1cbbbc6328b63afdf63a;hpb=7f0c63da7fc25ef601cf03c430c3f8d735e7ef29;p=fiveam.git

diff --git a/src/check.lisp b/src/check.lisp
index 8d5f99f..e2a4a95 100644
--- a/src/check.lisp
+++ b/src/check.lisp
@@ -184,6 +184,13 @@ If the value is a (values a b * d *) form then the elements at * are not compare
                         (is (equal ,expr-result (multiple-value-list ,value))))
               else collect `(is (equal ,expr ,value))))))
 
+(defmacro is-string= (&rest args)
+  "Generates (is (string= ,expr ,value)) for each pair of elements."
+  `(progn
+    ,@(loop for (expr value) on args by #'cddr
+            do (assert (and expr value))
+            collect `(is (string= ,expr ,value)))))
+
 (defmacro is-true (condition &rest reason-args)
   "Like IS this check generates a pass if CONDITION returns true
   and a failure if CONDITION returns false. Unlike IS this check