node->reverse-order-generator

1 files changed, 10 insertions, 0 deletions

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