Revision: 6311 Author: ek.kato Date: Wed Apr 7 15:38: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=6311 Modified: /trunk/test/uim-test-utils-new.scm ======================================= --- /trunk/test/uim-test-utils-new.scm Mon Apr 5 21:29:34 2010 +++ /trunk/test/uim-test-utils-new.scm Wed Apr 7 15:38:33 2010 @@ -82,14 +82,12 @@ (set! (port-buffering in) :modest) (let ((result (call-with-output-string (lambda (out) - (let loop ((ready (uim-sh-select in '(1 0)))) + (let loop ((ready (uim-sh-select in '(5 0)))) (and-let* (ready (block (read-block 4096 in)) ((not (eof-object? block)))) (display block out) - (if (not (char-ready? in)) - (sys-nanosleep 1000000)) ;; 0.001 sec - (loop (uim-sh-select in 1)))))))) + (loop (uim-sh-select in 1000)))))))) (if (string-prefix? "Error:" result) (error (string-trim-both result)) result))) -- To unsubscribe, reply using "remove me" as the subject.
