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)) (display 1 (current-output-port))
(semaphore-post s))) (semaphore-post s)))
(semaphore-wait s))) (semaphore-wait s)))
(list (list "1" output-style) (list (list "1" output-style)
prompt)) prompt))
(check-output (format "~s" '(let ([s (make-semaphore)]) (check-output (format "~s" '(let ([s (make-semaphore)])
(thread (lambda () (thread (lambda ()
(display 1 (current-error-port)) (display 1 (current-error-port))
(semaphore-post s))) (semaphore-post s)))
(semaphore-wait s)))) (semaphore-wait s)))
(list (list "1" error-style) (list (list "1" error-style)
prompt))) prompt)))
(define (long-io/execute-test) (define (long-io/execute-test)
(let ([string-port (open-output-string)]) (let ([string-port (open-output-string)])