generator->node

1 files changed, 9 insertions, 0 deletions

diff --git a/tests/run.scm b/tests/run.scm
index 8cfdabc..81c5a86 100644
--- a/tests/run.scm
+++ b/tests/run.scm
@@ -546,3 +546,12 @@
   (test-property node->generator-works
                  (list (list-generator-of (exact-integer-generator)))))
 
+(test-group "generator->node"
+  (define (generator->node-works lst)
+    (let* ((gen (list->generator lst))
+           (node (generator->node number-comparator gen)))
+      (and (node-every (cut member <> lst) node)
+           (every (cut search number-comparator <> node) lst))))
+  (test-property generator->node-works
+                 (list (list-generator-of (exact-integer-generator)))))
+