tests: Shorten a few of the most time-consuming tests when FAST=nonnull.

diff --git a/tests/runtime/test-char-set.scm b/tests/runtime/test-char-set.scm
index 7cda005fd49b856344c8a7f66a7e2300a2027c40..3bcd57f9e579f0e8fd912842a13abd81471ae9c5 100644 (file)
--- a/tests/runtime/test-char-set.scm
+++ b/tests/runtime/test-char-set.scm
@@ -374,7 +374,14 @@ USA.
   (n+1-generator 2-generator))
 
 (define interesting-svls
-  (cons (list)
-       (append! (1-generator interesting-points)
-                (2-generator interesting-points)
-                (3-generator interesting-points))))
\ No newline at end of file
+  (if (let ((v (get-environment-variable "FAST")))
+       (or (eq? v #f) (string-null? v)))
+      (begin
+       (warn "To avoid long runtimes, export FAST=y.")
+       (cons (list)
+             (append! (1-generator interesting-points)
+                      (2-generator interesting-points)
+                      (3-generator interesting-points))))
+      (begin
+       (cons (list)
+             (1-generator interesting-points)))))
\ No newline at end of file

diff --git a/tests/runtime/test-hash-table.scm b/tests/runtime/test-hash-table.scm
index 5160f54ba9653472e7351f2c3f333acdbd59520f..e29cd8aec473bf3f3c70209f6af54dce6aab1358 100644 (file)
--- a/tests/runtime/test-hash-table.scm
+++ b/tests/runtime/test-hash-table.scm
@@ -177,7 +177,10 @@ USA.
 ;;;; Correctness Tests
 
 (define (check implementation)
-  (let ((n #x1000))
+  (let ((n (if (let ((v (get-environment-variable "FAST")))
+                (or (eq? v #f) (string-null? v)))
+              #x1000
+              #x100)))
     (do ((i 0 (+ i 1))) ((= i #x100))
       (let* ((key-radix (+ 1 (random-integer n)))
             (insert-fraction (random-real))