diff options
| author | Kevin Ryde <user42@zip.com.au> | 2003-10-02 00:00:42 +0000 |
|---|---|---|
| committer | Kevin Ryde <user42@zip.com.au> | 2003-10-02 00:00:42 +0000 |
| commit | 930d3b37a81bcbae14d76fdc8facf64efdb0436f (patch) | |
| tree | 88f448b691808b06a33789ecc9e4faa18faeb35b /test-suite/tests/popen.test | |
| parent | 88fd89ac40fcd95082dfe7ba16a052025e1a7656 (diff) | |
| download | guile-930d3b37a81bcbae14d76fdc8facf64efdb0436f.tar.gz | |
Fix a couple of typos in:
New file.
Diffstat (limited to 'test-suite/tests/popen.test')
| -rw-r--r-- | test-suite/tests/popen.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/test-suite/tests/popen.test b/test-suite/tests/popen.test index 33da12f71..01be63f69 100644 --- a/test-suite/tests/popen.test +++ b/test-suite/tests/popen.test @@ -99,7 +99,7 @@ (pass-if "port?" (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" (let ((port (open-file "/dev/null" "r+"))) (with-input-from-port port @@ -145,7 +145,7 @@ ;; close-pipe ;; -(with-test-prefix "open-output-pipe" +(with-test-prefix "close-pipe" (pass-if-exception "no args" exception:wrong-num-args (close-pipe)) |