From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Fri, 13 Jul 2012 02:12:05 +0000 (-0700)
Subject: tests: Shorten a few of the most time-consuming tests when FAST=nonnull.
X-Git-Tag: mit-scheme-pucked-9.2.12~584
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a11eff3e2e410807bfa93d91edab9b677204019c;p=mit-scheme.git

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 7cda005fd..3bcd57f9e 100644
--- 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 5160f54ba..e29cd8aec 100644
--- 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))