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

fix mangling of drracket io test

Browse Source
This commit is contained in:
Robby Findler 2014-05-22 14:32:47 -05:00
parent 3ae93442d3
commit fbcada2045
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
pkgs/drracket-pkgs/drracket-test/tests/drracket/io.rkt
View File

@ -94,15 +94,15 @@ add this test:
(display 1 (current-output-port))
(semaphore-post s)))
(semaphore-wait s)))
(list (list "1" output-style)
prompt))
(list (list "1" output-style)
prompt))
(check-output (format "~s" '(let ([s (make-semaphore)])
(thread (lambda ()
(display 1 (current-error-port))
(semaphore-post s)))
(semaphore-wait s))))
(list (list "1" error-style)
prompt)))
(semaphore-wait s)))
(list (list "1" error-style)
prompt)))
(define (long-io/execute-test)
(let ([string-port (open-output-string)])