From 6f134c185102576b162d759c59f53b7018c13931 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 27 Feb 2016 15:08:41 -0800
Subject: [PATCH] Add assert-member.

---
 tests/unit-testing.scm | 4 ++++
 1 file changed, 4 insertions(+)

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)
-- 
2.25.1