Changeset 8915 in project for nondescript/binary-tree/tests/binary-tree-test.scm

Timestamp:

02/25/08 16:39:29 (13 years ago)

Author:

Kon Lovett

Message:

Save.

File:

• nondescript/binary-tree/tests/binary-tree-test.scm (modified) (2 diffs)

nondescript/binary-tree/tests/binary-tree-test.scm

@@ -5 +5 @@
 (use srfi-1 srfi-13)
 
-;;
+;;;
 
 (define-inline (->boolean obj)
-        (not (not obj)) )
+        (and obj #t) )
 
 (define (random-alist n #!optional (lim (* n 10)))
         (let loop ([n n] [al '()])
                 (if (zero? n)
-                        al
-                        (loop (sub1 n) (alist-cons (random lim) (gensym) al)) ) ) )
+        al
+        (loop (sub1 n) (alist-cons (random lim) (gensym) al)) ) ) )
 
 (define (alist-same? al1 al2)
         (every
-                (lambda (pair)
-                        (and-let* ([v2 (alist-ref (car pair) al2 equal?)])
-                                (equal? v2 (cdr pair)) ) )
+                (lambda (pare)
+                        (and-let* ([v2 (alist-ref (car pare) al2 equal?)])
+                                (equal? v2 (cdr pare)) ) )
                 al1) )
-
-(define-expect-binary alist-same? alist-same "alist same key-value pairs, w/o ordering")
 
 (define (list-same? l1 l2)
         (every (lambda (x) (->boolean (member x l2))) l1) )
 
-(define-expect-binary list-same? list-same "list same values, w/o ordering")
-
 (define (random-tree n)
         (alist->avltree (random-alist n) <) )
 
-;;
+;;;
+
+(define-expect-binary alist-same? alist-same "alist same key-value pairs, w/o ordering")
+
+(define-expect-binary list-same? list-same "list same values, w/o ordering")
+
+;;;
 
 (define-test avltree-test "Avl-Tree"
@@ -130 +132 @@
 (test::styler-set! avltree-test test::output-style-human)
 (run-test "AVL Tree Tests")
+
+(test::forget!)