mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-02 13:00:26 +02:00
Code Activity

Fix a couple of typos in:

Browse source 
New file.
This commit is contained in:
Kevin Ryde 2003-10-02 00:00:42 +00:00
parent 88fd89ac40
commit 930d3b37a8
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
test-suite/tests/popen.test
View file

@ -99,7 +99,7 @@
(pass-if "port?" (pass-if "port?"
(port? (open-output-pipe "exit 0"))) (port? (open-output-pipe "exit 0")))
;; exercise file descriptor setups when stdout is the same as stderr ;; exercise file descriptor setups when stdin is the same as stderr
(pass-if "stdin==stderr" (pass-if "stdin==stderr"
(let ((port (open-file "/dev/null" "r+"))) (let ((port (open-file "/dev/null" "r+")))
(with-input-from-port port (with-input-from-port port
@ -145,7 +145,7 @@
;; close-pipe ;; close-pipe
;; ;;
(with-test-prefix "open-output-pipe" (with-test-prefix "close-pipe"
(pass-if-exception "no args" exception:wrong-num-args (pass-if-exception "no args" exception:wrong-num-args
(close-pipe)) (close-pipe))