[packages/guile1: 127/172] - updated for 1.8.1

jajcus jajcus at pld-linux.org
Sat Dec 12 13:49:27 CET 2015


commit 49f4b312cd9bb64e45347a82781e2cb1baab1850
Author: Jakub Bogusz <qboosh at pld-linux.org>
Date:   Mon Oct 9 23:22:36 2006 +0000

    - updated for 1.8.1
    
    Changed files:
        guile-test-hacks.patch -> 1.2

 guile-test-hacks.patch | 43 +++++++++++++------------------------------
 1 file changed, 13 insertions(+), 30 deletions(-)
---
diff --git a/guile-test-hacks.patch b/guile-test-hacks.patch
index 6da7886..3cf8d5f 100644
--- a/guile-test-hacks.patch
+++ b/guile-test-hacks.patch
@@ -1,37 +1,20 @@
---- guile-1.8.0/test-suite/tests/numbers.test.orig	2006-02-12 14:29:32.000000000 +0100
-+++ guile-1.8.0/test-suite/tests/numbers.test	2006-08-24 01:00:44.042884000 +0200
-@@ -1214,10 +1214,12 @@
- 		 (string=? (number->string 0.25 2) "0.010")))
-     (pass-if (string=? (number->string 255.0625 16) "FF.1"))
-     (pass-if (string=? (number->string (/ 1 3) 3) "1/10"))
--    (pass-if (or (string=? (number->string 11.33333333333333333 12)
-+    (pass-if (or (or (string=? (number->string 11.33333333333333333 12)
- 			   "B.4")
- 		 (string=? (number->string 11.33333333333333333 12)
--			   "B.400000000000009")))
-+			   "B.400000000000009"))
-+		 (string=? (number->string 11.33333333333333333 12)
-+			   "B.3BBBBBBBBBBBBA6")))
-     (pass-if (or (string=? (number->string 1.324e44 16)
- 			   "5.EFE0A14FAFEe24")
- 		 (string=? (number->string 1.324e44 16)
---- guile-1.8.0/test-suite/tests/popen.test.orig	2006-02-12 14:29:32.000000000 +0100
-+++ guile-1.8.0/test-suite/tests/popen.test	2006-08-24 01:01:48.922938750 +0200
+--- guile-1.8.1/test-suite/tests/popen.test.orig	2006-08-27 23:05:26.000000000 +0200
++++ guile-1.8.1/test-suite/tests/popen.test	2006-10-10 01:12:27.114961750 +0200
 @@ -82,7 +82,7 @@
  	   (port (with-error-to-port (cdr pair)
  		   (lambda ()
  		     (open-input-pipe
--		      "exec 1>/dev/null; echo closed 1>&2; sleep 999")))))
-+		      "exec 1>/dev/null; echo closed 1>&2; sleep 99")))))
-       (read-char (car pair)) ;; wait for child to do its thing
-       (and (char-ready? port)
- 	   (eof-object? (read-char port))))))
-@@ -131,7 +131,7 @@
+-		      "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 99")))))
+       (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; sleep 999")))))
-+			 "exec 0</dev/null; echo closed 1>&2; sleep 99")))))
- 	 (read-char (car pair)) ;; wait for child to do its thing
- 	 (catch 'system-error
- 		(lambda ()
+-			 "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 99")))))
+ 	 (close-port (cdr pair))   ;; write side
+ 	 (and (char? (read-char (car pair))) ;; wait for child to do its thing
+ 	      (catch 'system-error
================================================================

---- gitweb:

http://git.pld-linux.org/gitweb.cgi/packages/guile1.git/commitdiff/ebe6c26bec9cbe3813afc2be58f989889f8e944a



More information about the pld-cvs-commit mailing list