reactive tests for adjoin and find

1 files changed, 6 insertions, 6 deletions

diff --git a/tests/srfi-113-sets.scm b/tests/srfi-113-sets.scm
index 6fbba40..5fd60b0 100644
--- a/tests/srfi-113-sets.scm
+++ b/tests/srfi-113-sets.scm
@@ -19,9 +19,9 @@
 (define test-disjoint-set-generator-of #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-member #f)
+(define test-set-adjoin #t)
+(define test-set-find #t)
 (define test-set-disjoint #f)
 (define test-set-delete #f)
 (define test-set= #f)
@@ -361,7 +361,6 @@
                                          (set-generator)
                                          2)))))
 
-#|
 ;;; ;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;; Set-adjoin
 ;;; ;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -395,14 +394,15 @@
       (not
        (eq? (set-find (lambda (x) #t) set (lambda () set-find-something))
             set-find-something)))
-    (test-property set-find-something (list (filter-non-empty-sets
-                                             (set-generator)))))
+    (test-property set-find-something (list (gremove set-empty?
+                                                     (set-generator)))))
   (test-group "set-find a number"
     (define (set-find-a-number set)
       (let ((set (set-adjoin set 0)))
         (number? (set-find number? set (lambda () set-find-a-number)))))
     (test-property set-find-a-number (list (set-generator)))))
 
+#|
 ;;; ;;;;;;;;;;;;;;;;;;;;
 ;;; Set-count
 ;;; ;;;;;;;;;;;;;;;;;;;;