forked from pool/guile1
Petr Gajdos
ee09a12a26
OBS-URL: https://build.opensuse.org/package/show/devel:languages:misc/guile1?expand=0&rev=1
14 lines
564 B
Diff
14 lines
564 B
Diff
Index: test-suite/tests/popen.test
|
|
===================================================================
|
|
--- test-suite/tests/popen.test.orig 2010-12-13 19:24:40.000000000 +0200
|
|
+++ test-suite/tests/popen.test 2011-09-27 19:28:47.178045945 +0200
|
|
@@ -168,7 +168,7 @@
|
|
(port (with-error-to-port (cdr c2p)
|
|
(lambda ()
|
|
(open-output-pipe
|
|
- "exec 0</dev/null; while true; do echo closed 1>&2; done")))))
|
|
+ "exec 0</dev/null; echo closed 1>&2; sleep 3")))))
|
|
(close-port (cdr c2p)) ;; write side
|
|
(with-epipe
|
|
(lambda ()
|