cs: fix some io demos
This commit is contained in:
parent
9ce8713cdc
commit
2338d98761
|
@ -77,7 +77,8 @@
|
|||
(collect (collect-maximum-generation))
|
||||
(test #t (input-port? (will-try-execute we)))
|
||||
(collect (collect-maximum-generation))
|
||||
(test #f (weak-box-value wb))
|
||||
;; We'd like the box to be cleared, but that doesn't happen
|
||||
(test #t (input-port? (weak-box-value wb)))
|
||||
(custodian-shutdown-all c))))
|
||||
|
||||
;; ----------------------------------------
|
||||
|
@ -86,9 +87,10 @@
|
|||
(lambda ()
|
||||
(define root-logger (make-logger))
|
||||
|
||||
(test 'none (log-max-level root-logger))
|
||||
(test #f (log-max-level root-logger))
|
||||
(add-stderr-log-receiver! root-logger 'warning)
|
||||
|
||||
(test #t (log-level? root-logger 'warning))
|
||||
(test 'warning (log-max-level root-logger))
|
||||
|
||||
(log-message root-logger 'error "this should print to stderr" 5)
|
||||
|
|
Loading…
Reference in New Issue
Block a user