/[guile]/guile/guile-core/test-suite/tests/popen.test
ViewVC logotype

Diff of /guile/guile-core/test-suite/tests/popen.test

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by kryde, Fri Sep 19 01:05:13 2003 UTC revision 1.2 by kryde, Thu Oct 2 00:00:42 2003 UTC
# Line 99  Line 99 
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
# Line 145  Line 145 
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))

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26