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

Refactor test harness.

Browse Source 
original commit: e9f8cc9aca6a67a9b56f0ba9dd202f0fa2669ab6
This commit is contained in:
Sam Tobin-Hochstadt 2010-05-28 15:27:49 -04:00
parent 1e98e1c1fd
commit 78b767252d
1 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
collects/tests/typed-scheme/run.rkt
View File

@ -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."))