Revision: 6619 Author: ek.kato Date: Wed Jul 28 01:00:33 2010 Log: * test/uim-test-utils-new.scm (uim-sh-read-block) - Cope with slower machines.
http://code.google.com/p/uim/source/detail?r=6619 Modified: /trunk/test/uim-test-utils-new.scm ======================================= --- /trunk/test/uim-test-utils-new.scm Tue Jul 27 22:09:43 2010 +++ /trunk/test/uim-test-utils-new.scm Wed Jul 28 01:00:33 2010 @@ -87,7 +87,7 @@ (block (read-block 4096 in)) ((not (eof-object? block)))) (display block out) - (loop (uim-sh-select in 1000)))))))) + (loop (uim-sh-select in 5000)))))))) (if (string-prefix? "Error:" result) (error (string-trim-both result)) result)))
