rename module to internal

1 files changed, 12 insertions, 7 deletions

diff --git a/tests/run.scm b/tests/run.scm
index b7d78d3..a280233 100644
--- a/tests/run.scm
+++ b/tests/run.scm
@@ -13,14 +13,17 @@
  | limitations under the License.
  |#
 
-(import (mcgoron weight-balanced-trees)
+(import (mcgoron weight-balanced-trees internal)
         (prefix (only (mcgoron srfi 64) factory) mcgoron-test-)
         (except (mcgoron srfi 64) factory)
         (srfi 1) (srfi 26) (srfi 64) (srfi 128) (srfi 132) (srfi 133)
         (srfi 158) (srfi 194) (srfi 197) (srfi 252))
 
-(define verbose
-  (make-parameter #f))
+;;; ;;;;;;;;;;;;;;;;
+;;; Parameters
+
+(define verbose (make-parameter #f))
+(define max-vector-length (make-parameter 100))
 
 ;;; ;;;;;;;;;;;;;;;;;;;;
 ;;; Setup my test runner
@@ -101,11 +104,12 @@
         (dynamic-property-set! 'lst lst))
       (equal? (vector->list vec) lst)))
   (test-property vector->node->list?
-                 (list (in-order-vector-generator 50))))
+                 (list (in-order-vector-generator (max-vector-length)))))
 
 (test-group "vector->node balanced?"
   (test-assert (balanced? '()))
-  (test-property balanced? (list (vector->node-generator 50))))
+  (test-property balanced? (list (vector->node-generator
+                                  (max-vector-length)))))
 
 ;;; ;;;;;;;;;
 ;;; Test that join preserves the order of nodes
@@ -151,7 +155,8 @@
 
 (test-group "join-preserves-order-of"
   (parameterize ((verbose #f))
-    (test-property join-preserves-order-of (list (split-vector-generator 50)))))
+    (test-property join-preserves-order-of (list (split-vector-generator
+                                                  (max-vector-length))))))
 
 (test-group "join balanced?"
   (define (join-split-vectors vec)
@@ -163,4 +168,4 @@
             (in-order-vector->node right))))
   (define (joined-vector-generator of)
     (gmap join-split-vectors (split-vector-generator of)))
-  (test-property balanced? (list (joined-vector-generator 50))))
+  (test-property balanced? (list (joined-vector-generator (max-vector-length)))))