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

Change stderr output to logging, to please drdr

Browse Source
This commit is contained in:
Kevin Tew 2011-09-06 11:13:07 -06:00
parent 9b91d37032
commit f44337e28e
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
collects/tests/racket/place-channel-fd2.rkt
View File

@ -24,17 +24,19 @@
(flush-output p))
(sleep 3)
(with-handlers ([exn? (lambda (e) (eprintf "Child Read Exception Caught ~e\n" e))])
(fprintf (current-error-port) "ChildRead1 ~a\n" (read)))
(with-handlers ([exn? (lambda (e) (eprintf "Child Read Exception Caught ~e\n" e))])
(fprintf (current-error-port) "ChildRead2 ~a\n" (read)))
(with-handlers ([exn? (lambda (e) (eprintf "Child Read1 Exception Caught ~e\n" e))])
(define r (read))
(log-debug (format "Child Read1 ~a\n" r)))
(with-handlers ([exn? (lambda (e) (eprintf "Child Read2 Exception Caught ~e\n" e))])
(define r (read))
(log-debug (format "Child Read2 ~a\n" r)))
;(close-input-port)
(sleep 3)
(with-handlers ([exn? (lambda (e) (eprintf "Child Write StdOut Exception Caught ~e\n" e))])
(write-flush "ByeO"))
(with-handlers ([exn? (lambda (e) (fprintf "Child Write StdErr Exception Caught ~e\n" e))])
(write-flush "ByeE" (current-error-port)))
(with-handlers ([exn? (lambda (e) (eprintf "Child Write StdErr Exception Caught ~e\n" e))])
(log-debug "ByeE"))
END
)))