From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 27 Feb 2016 23:08:41 +0000 (-0800)
Subject: Add assert-member.
X-Git-Tag: mit-scheme-pucked-9.2.12~261^2~119
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=6f134c185102576b162d759c59f53b7018c13931;p=mit-scheme.git

Add assert-member.
---

diff --git a/tests/unit-testing.scm b/tests/unit-testing.scm
index 16c436965..24a3f2a79 100644
--- 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)