original commit: 6f9bcf00015433a8a781ab832247deaaa7307869
This commit is contained in:
Robby Findler 2010-12-31 09:58:23 -06:00
parent 5007b385dd
commit c4dd75a553
4 changed files with 82 additions and 81 deletions

View File

@ -1,4 +1,4 @@
#lang scheme/unit
#lang racket/unit
(require mzlib/class
"sig.ss"

View File

@ -1,7 +1,8 @@
(module framework-test-engine mzscheme
#lang racket/base
(require mzlib/pconvert
mred
racket/tcp
racket/class
racket/gui/base
"debug.ss")
(define errs null)
@ -19,8 +20,9 @@
(get-output-string p))
(format "uncaught exn: ~s" x)))
(namespace-require 'scheme/gui)
(namespace-require 'racket/gui)
(void
(thread
(lambda ()
(with-handlers ([(lambda (x) #t)
@ -59,7 +61,7 @@
out)
(newline out)
(flush-output out)
(loop))))))))))
(loop)))))))))))
(let ([od (event-dispatch-handler)]
[port (current-output-port)])
@ -78,4 +80,4 @@
(lambda ()
(od evt)))))))
(yield (make-semaphore 0)))
(yield (make-semaphore 0))

View File

@ -1,8 +1,7 @@
#lang mzscheme
#lang racket/base
(require launcher
mzlib/cmdline
mzlib/list
mzlib/unitsig
racket/cmdline
racket/unit
"debug.ss"
"test-suite-utils.ss")

View File

@ -1,4 +1,4 @@
#lang mzscheme
#lang racket/base
(require "test-suite-utils.ss")
(test