Rackety
original commit: 6f9bcf00015433a8a781ab832247deaaa7307869
This commit is contained in:
parent
5007b385dd
commit
c4dd75a553
|
@ -1,4 +1,4 @@
|
|||
#lang scheme/unit
|
||||
#lang racket/unit
|
||||
|
||||
(require mzlib/class
|
||||
"sig.ss"
|
||||
|
|
|
@ -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))
|
||||
|
|
|
@ -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")
|
||||
|
||||
|
|
|
@ -1,4 +1,4 @@
|
|||
#lang mzscheme
|
||||
#lang racket/base
|
||||
(require "test-suite-utils.ss")
|
||||
|
||||
(test
|
||||
|
|
Loading…
Reference in New Issue
Block a user