Add assert-member.

diff --git a/tests/unit-testing.scm b/tests/unit-testing.scm
index 16c4369652814df4a2d5beedaabdcbca1a26f823..24a3f2a79371e227f7996fe12b512ed65753e814 100644 (file)
--- a/tests/unit-testing.scm
+++ b/tests/unit-testing.scm
@@ -389,6 +389,10 @@ USA.
   (binary-assertion (lambda (actual-value expected-list)
                      (and (memv actual-value expected-list) #t))))
 
+(define-for-tests assert-member
+  (binary-assertion (lambda (actual-value expected-list)
+                     (and (member actual-value expected-list) #t))))
+
 (define-for-tests (assert-error thunk condition-types . properties)
   (call-with-current-continuation
    (lambda (k)