suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

properly disable TS tests on cgc

Browse Source 
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
collects/tests/run-automated-tests.ss
View File

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

7
collects/tests/typed-scheme/nightly-run.ss Normal file
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))