test set-member with new generators

1 files changed, 14 insertions, 13 deletions

diff --git a/tests/srfi-113-sets.scm b/tests/srfi-113-sets.scm
index 5a9da18..6fbba40 100644
--- a/tests/srfi-113-sets.scm
+++ b/tests/srfi-113-sets.scm
@@ -17,9 +17,9 @@
 (define test-set-generator-of #f)
 (define test-intersecting-set-generator-of #f)
 (define test-disjoint-set-generator-of #f)
-(define test-set-every #t)
-(define test-set-contains #t)
-(define test-set-member #f)
+(define test-set-every #f)
+(define test-set-contains #f)
+(define test-set-member #t)
 (define test-set-adjoin #f)
 (define test-set-find #f)
 (define test-set-disjoint #f)
@@ -334,7 +334,6 @@
                                                (set-generator)
                                                2)))))
 
-#|
 ;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;; Set-member
 ;;; 
@@ -351,16 +350,18 @@
                   set))
     (test-property set-member-from (list (set-generator))))
   (test-group "not set-member"
-    (define (set-not-member vecs)
-      (let ((set (list->set cmp (vector->list (list-ref vecs 0))))
-            (not-in (list-ref vecs 1)))
-        (vector-every
-         (lambda (value)
-           (eq? (set-member set value set-not-member)
-                set-not-member))
-         not-in)))
-    (test-property set-not-member (list (split-unique-vectors)))))
+    (define (set-not-member sets)
+      (let ((set (list-ref sets 0))
+            (traversed-set (list-ref sets 1)))
+        (set-every? (lambda (value)
+                      (eq? (set-member set value set-not-member)
+                           set-not-member))
+                    traversed-set)))
+    (test-property set-not-member (list (disjoint-set-generator-of-exactly
+                                         (set-generator)
+                                         2)))))
 
+#|
 ;;; ;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;; Set-adjoin
 ;;; ;;;;;;;;;;;;;;;;;;;;;;;;;