node->in-order-generator

1 files changed, 10 insertions, 0 deletions

diff --git a/tests/run.scm b/tests/run.scm
index 81c5a86..a06f98d 100644
--- a/tests/run.scm
+++ b/tests/run.scm
@@ -555,3 +555,13 @@
   (test-property generator->node-works
                  (list (list-generator-of (exact-integer-generator)))))
 
+(test-group "node->in-order-generator"
+  (define (node->in-order-generator-works lst)
+    (let* ((node (fold insert '() lst))
+           (result-lst (generator->list
+                        (node->in-order-generator node))))
+      (and (lset= = lst result-lst)
+           (list-sorted? < result-lst))))
+  (test-property node->in-order-generator-works
+                 (list (list-generator-of (exact-integer-generator)))))
+