From 78b767252db29ef88f28d7685abc493fb8432190 Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Fri, 28 May 2010 15:27:49 -0400 Subject: [PATCH] Refactor test harness. original commit: e9f8cc9aca6a67a9b56f0ba9dd202f0fa2669ab6 --- collects/tests/typed-scheme/run.rkt | 14 +++++++++++--- 1 file changed, 11 insertions(+), 3 deletions(-) diff --git a/collects/tests/typed-scheme/run.rkt b/collects/tests/typed-scheme/run.rkt index f2ff3c10..c462e3d9 100644 --- a/collects/tests/typed-scheme/run.rkt +++ b/collects/tests/typed-scheme/run.rkt @@ -1,7 +1,15 @@ -#lang racket/base -(require racket/vector) +#lang racket +(require racket/vector racket/gui/dynamic) (require "main.ss") (current-namespace (make-base-namespace)) -(unless (= 0 (go/text (vector-member "unit" (current-command-line-arguments)))) +(define exec (make-parameter go/text)) +(define unit-only? (make-parameter #f)) +(command-line + #:once-each + ["--unit" "run just the unit tests" (unit-only? #t)] + ["--gui" "run using the gui" + (current-namespace ((gui-dynamic-require 'make-gui-namespace))) + (exec go)]) +(unless (= 0 ((exec) (unit-only?))) (error "Typed Scheme Tests did not pass."))