projects
/
fiveam.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Added is-string=
[fiveam.git]
/
src
/
check.lisp
diff --git
a/src/check.lisp
b/src/check.lisp
index
8d5f99f
..
e2a4a95
100644
(file)
--- 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))))))
(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
(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