99 |
(pass-if "port?" |
(pass-if "port?" |
100 |
(port? (open-output-pipe "exit 0"))) |
(port? (open-output-pipe "exit 0"))) |
101 |
|
|
102 |
;; exercise file descriptor setups when stdout is the same as stderr |
;; exercise file descriptor setups when stdin is the same as stderr |
103 |
(pass-if "stdin==stderr" |
(pass-if "stdin==stderr" |
104 |
(let ((port (open-file "/dev/null" "r+"))) |
(let ((port (open-file "/dev/null" "r+"))) |
105 |
(with-input-from-port port |
(with-input-from-port port |
145 |
;; close-pipe |
;; close-pipe |
146 |
;; |
;; |
147 |
|
|
148 |
(with-test-prefix "open-output-pipe" |
(with-test-prefix "close-pipe" |
149 |
|
|
150 |
(pass-if-exception "no args" exception:wrong-num-args |
(pass-if-exception "no args" exception:wrong-num-args |
151 |
(close-pipe)) |
(close-pipe)) |