properly disable TS tests on cgc

svn: r16842
This commit is contained in:
Eli Barzilay 2009-11-17 20:02:07 +00:00
parent 8d6705dde4
commit 0c0945bb08
2 changed files with 16 additions and 12 deletions

View File

@ -31,19 +31,16 @@
;; special flag that means that errors raised by the test suite are
;; ignored, and should only be used by the mzscheme tests.)
(define tests
`([no-handler load "mzscheme/quiet.ss" (lib "scheme/init")]
'(;[no-handler load "mzscheme/quiet.ss" (lib "scheme/init")]
;; [require "planet/lang.ss"]
;; typed scheme tests use too much memory for the cgc
,@(if (eq? 'cgc (system-type 'gc))
'()
'([require "typed-scheme/run.ss"]))
[require "match/plt-match-tests.ss"]
;; [require "stepper/automatic-tests.ss" (lib "scheme/base")]
[require "typed-scheme/nightly-run.ss"]
; [require "match/plt-match-tests.ss"]
; ;; [require "stepper/automatic-tests.ss" (lib "scheme/base")]
[require "lazy/main.ss"]
[require "scribble/main.ss"]
[require "net/main.ss"]
[require "file/main.ss"]
[require "profile/main.ss"]
; [require "scribble/main.ss"]
;[require "net/main.ss"]
; [require "file/main.ss"]
; [require "profile/main.ss"]
))
(require scheme/runtime-path)
@ -85,6 +82,6 @@
(abort 1 "error: ~a" (exn-message exn)))])
(thunk))))
(kill-thread timeout-thread)
(echo "all tests passed."))))
(echo "no failures found."))))
(exit exit-code)

View File

@ -0,0 +1,7 @@
#lang scheme/base
(require scheme/runtime-path)
(define-runtime-path run "run.ss")
(if (eq? 'cgc (system-type 'gc))
(printf "Running under CGC => skipping tests\n")
(dynamic-require run #f))