27 lines
1.2 KiB
Diff
27 lines
1.2 KiB
Diff
diff -up guile-1.8.7/test-suite/tests/popen.test.testsuite guile-1.8.7/test-suite/tests/popen.test
|
|
--- guile-1.8.7/test-suite/tests/popen.test.testsuite 2009-07-04 00:19:00.000000000 +0200
|
|
+++ guile-1.8.7/test-suite/tests/popen.test 2009-07-16 17:09:57.000000000 +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 ()
|
|
diff -up guile-1.8.8/test-suite/tests/srfi-14.test.srfi14test guile-1.8.8/test-suite/tests/srfi-14.test
|
|
--- guile-1.8.8/test-suite/tests/srfi-14.test.srfi14test 2010-12-13 18:24:40.000000000 +0100
|
|
+++ guile-1.8.8/test-suite/tests/srfi-14.test 2015-07-15 17:30:44.975307452 +0200
|
|
@@ -281,7 +281,9 @@
|
|
(pass-if "char-set:lower-case (size)"
|
|
(if (not %latin1)
|
|
(throw 'unresolved)
|
|
- (= (char-set-size char-set:lower-case) (+ 26 33))))
|
|
+ (let ((size (char-set-size char-set:lower-case)))
|
|
+ (or (= size (+ 26 33))
|
|
+ (= size (+ 26 35))))))
|
|
|
|
(pass-if "char-set:upper-case (size)"
|
|
(if (not %latin1)
|