From: Matt Birkholz <puck@birchwood-abbey.net>
Date: Fri, 10 Oct 2014 23:32:01 +0000 (-0700)
Subject: make check: To avoid long run times, export FAST=y.
X-Git-Tag: mit-scheme-pucked-9.2.12~398^2~3
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=20a95a9e5eeae491b421f88d6104d35501d51a6a;p=mit-scheme.git

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 ed25423fc..31ff206fe 100644
--- 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 981e561f2..d3457aa04 100644
--- 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 ed94c44c6..0d74dc953 100644
--- 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