From fd735190d526e48a9d7c404a40e8ff016f3ffdb9 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Tue, 17 Nov 2009 20:02:07 +0000
Subject: [PATCH] properly disable TS tests on cgc

svn: r16842

original commit: 0c0945bb08cf08f46ae461c1c07fbbc17b3cb267
---
 collects/tests/typed-scheme/nightly-run.ss | 7 +++++++
 1 file changed, 7 insertions(+)
 create mode 100644 collects/tests/typed-scheme/nightly-run.ss

diff --git a/collects/tests/typed-scheme/nightly-run.ss b/collects/tests/typed-scheme/nightly-run.ss
new file mode 100644
index 00000000..a2fbedf4
--- /dev/null
+++ b/collects/tests/typed-scheme/nightly-run.ss
@@ -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))