make check: To avoid long run times, export FAST=y.

A nip and a tuck and the SVM can get through `make check' in 10-15
minutes, instead of MORE THAN 5 HOURS on a Dell Inspiron 1420 (2.2GHz
Core2Duo Centrino with 2GB RAM).

diff --git a/tests/runtime/test-char-set.scm b/tests/runtime/test-char-set.scm
index ed25423fce024cd46f2251890c052cb54a723696..31ff206fe002bf303f15583eed31c2eaa5243bf8 100644 (file)
--- a/tests/runtime/test-char-set.scm
+++ b/tests/runtime/test-char-set.scm
@@ -93,7 +93,9 @@ USA.
 
 (define (enumerate-test-values)
   (append (iota (+ %low-limit 8))
-         (iota 8 (- char-code-limit 8))))
+         (if keep-it-fast!?
+             '()
+             (iota 8 (- char-code-limit 8)))))
 
 (define (svl-member? svl value)
   (let loop ((svl svl))
@@ -375,6 +377,8 @@ USA.
 
 (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 keep-it-fast!?
+           (1-generator interesting-points)
+           (append! (1-generator interesting-points)
+                    (2-generator interesting-points)
+                    (3-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 981e561f2c4d5a0c140a2fa6593554e9fb92414a..d3457aa044bb634c51be1a859be8eb4068f61462 100644 (file)
--- a/tests/runtime/test-hash-table.scm
+++ b/tests/runtime/test-hash-table.scm
@@ -177,8 +177,8 @@ USA.
 ;;;; Correctness Tests
 
 (define (check implementation)
-  (let ((n #x1000))
-    (do ((i 0 (+ i 1))) ((= i #x100))
+  (let ((n (if keep-it-fast? #x100 #x1000)))
+    (do ((i 0 (+ i 1))) ((= i (if keep-it-fast? #x10 #x100)))
       (let* ((key-radix (+ 1 (random-integer n)))
             (insert-fraction (random-real))
             (delete-fraction (- 1 insert-fraction)))

diff --git a/tests/unit-testing.scm b/tests/unit-testing.scm
index ed94c44c63ed789010363a740ff4f9db0098fdd1..0d74dc9537bf9741114a22a098addc108c9871a3 100644 (file)
--- a/tests/unit-testing.scm
+++ b/tests/unit-testing.scm
@@ -399,4 +399,12 @@ USA.
                  condition             ;ignore
                  (k #f))
              thunk)
-           properties))))
\ No newline at end of file
+           properties))))
+
+(define-for-tests keep-it-fast!?
+  (let ((v (get-environment-variable "FAST")))
+    (if (or (eq? v #f) (string-null? v))
+       (begin
+         (warn "To avoid long run times, export FAST=y.")
+         #f)
+       #t)))
\ No newline at end of file