diff options
author | Miroslav Lichvar <mlichvar@fedoraproject.org> | 2008-02-21 12:31:47 +0000 |
---|---|---|
committer | Miroslav Lichvar <mlichvar@fedoraproject.org> | 2008-02-21 12:31:47 +0000 |
commit | 07c1ec826d57d5b8fd820b668377fe7f046e8992 (patch) | |
tree | 91a524a81ad5ec3f2602e9c23a27cf1f2a2e8d7e /guile-1.8.4-testsuite.patch | |
parent | 9dead39a03040d6cb18a19fcb7c3d7f41df694f6 (diff) | |
download | guile-1_8_4-1_fc9.tar.gz guile-1_8_4-1_fc9.tar.xz guile-1_8_4-1_fc9.zip |
- update to 1.8.4guile-1_8_4-1_fc9F-9-startF-9-split
- add %%check
Diffstat (limited to 'guile-1.8.4-testsuite.patch')
-rw-r--r-- | guile-1.8.4-testsuite.patch | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/guile-1.8.4-testsuite.patch b/guile-1.8.4-testsuite.patch new file mode 100644 index 0000000..180c9c8 --- /dev/null +++ b/guile-1.8.4-testsuite.patch @@ -0,0 +1,21 @@ +diff -up guile-1.8.4/test-suite/tests/popen.test.testsuite guile-1.8.4/test-suite/tests/popen.test +--- guile-1.8.4/test-suite/tests/popen.test.testsuite 2006-08-25 03:21:39.000000000 +0200 ++++ guile-1.8.4/test-suite/tests/popen.test 2008-02-21 10:24:09.000000000 +0100 +@@ -82,7 +82,7 @@ + (port (with-error-to-port (cdr pair) + (lambda () + (open-input-pipe +- "exec 1>/dev/null; echo closed 1>&2; exec 2>/dev/null; sleep 999"))))) ++ "exec 1>/dev/null; echo closed 1>&2; exec 2>/dev/null; sleep 3"))))) + (close-port (cdr pair)) ;; write side + (and (char? (read-char (car pair))) ;; wait for child to do its thing + (char-ready? port) +@@ -132,7 +132,7 @@ + (port (with-error-to-port (cdr pair) + (lambda () + (open-output-pipe +- "exec 0</dev/null; echo closed 1>&2; exec 2>/dev/null; sleep 999"))))) ++ "exec 0</dev/null; echo closed 1>&2; exec 2>/dev/null; sleep 3"))))) + (close-port (cdr pair)) ;; write side + (and (char? (read-char (car pair))) ;; wait for child to do its thing + (catch 'system-error |