# HG changeset patch
# User Aleksej Bobylev <al.bobylev@gmail.com>
# Date 1468409647 -10800
# Node ID d5a39f30f9f1f10a2f32cbd52268b78a698afd78
# Parent  1e186097deeedd45ad3fe6591be34343c5b4daaa
clisp: patch to disable failed test

diff -r 1e186097deee -r d5a39f30f9f1 clisp/receipt
--- a/clisp/receipt	Tue Jul 12 23:46:10 2016 +0300
+++ b/clisp/receipt	Wed Jul 13 14:34:07 2016 +0300
@@ -16,7 +16,8 @@
 # Rules to configure and make the package.
 compile_rules()
 {
-	cd $src
+	# Temporarily (?) disabling one failed test
+	patch -p1 -i $stuff/streams.tst.patch
 
 	# CFLAGS/CXXFLAGS/MAKEFLAGS screw the build process.
 	unset CFLAGS CXXFLAGS MAKEFLAGS
@@ -40,4 +41,3 @@
 	# remove stuff
 	rm -rf $fs/usr/share/man
 }
-
diff -r 1e186097deee -r d5a39f30f9f1 clisp/stuff/streams.tst.patch
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/clisp/stuff/streams.tst.patch	Wed Jul 13 14:34:07 2016 +0300
@@ -0,0 +1,43 @@
+Disable one test from "streams" group.
+
+
+1) Normal test flow: http://cook.slitaz.org/cooker.cgi?log=clisp.log.2
+
+(STRINGP (WITH-OUTPUT-TO-STRING (S) (DESCRIBE NIL S)))
+;; connecting to "http://clisp.cons.org/impnotes/id-href.map"...connected...HTTP/1.1 301 Moved Permanently --> "http://www.clisp.org/impnotes/id-href.map"
+;; connecting to "http://www.clisp.org/impnotes/id-href.map"...connected...HTTP/1.1 200 OK...74,297 bytes
+;; SYSTEM::GET-STRING-MAP(#<IO INPUT-BUFFERED SOCKET-STREAM CHARACTER www.clisp.org:80>)...2,004 IDs
+;; SYSTEM::ENSURE-IMPNOTES-MAP(#P"/home/slitaz/wok/clisp/source/clisp-2.49/doc/Symbol-Table.text")...
+WARNING: SYSTEM::ENSURE-IMPNOTES-MAP: invalid id "compile-errors" for symbol
+         "EXT:SOURCE-PROGRAM-ERROR"
+WARNING: SYSTEM::ENSURE-IMPNOTES-MAP: invalid id "compile-errors" for symbol
+         "EXT:SOURCE-PROGRAM-ERROR-DETAIL"
+WARNING: SYSTEM::ENSURE-IMPNOTES-MAP: invalid id "compile-errors" for symbol
+         "EXT:SOURCE-PROGRAM-ERROR-FORM"
+644 IDs
+EQL-OK: T
+
+
+2) Something wrong (network problems?): http://cook.slitaz.org/cooker.cgi?pkg=clisp
+
+(STRINGP (WITH-OUTPUT-TO-STRING (S) (DESCRIBE NIL S)))
+;; connecting to "http://clisp.cons.org/impnotes/id-href.map"...connected...HTTP/1.1 302 Found --> "https://clisp.cons.org:80/impnotes/id-href.map"
+;; connecting to "http://clisp.cons.orghttps://clisp.cons.org:80/impnotes/id-href.map"...
+[SIMPLE-PARSE-ERROR]: PARSE-INTEGER: substring "" does not have integer syntax at position 0
+
+ERROR!! ERROR should be T !
+
+
+--- a/tests/streams.tst
++++ b/tests/streams.tst
+@@ -1036,8 +1036,8 @@
+            (describe (make-array nil :element-type nil) s)))
+ T
+ 
+-(stringp (with-output-to-string (s) (describe nil s)))
+-T
++;;(stringp (with-output-to-string (s) (describe nil s)))
++;;T
+ 
+ ;; https://sourceforge.net/tracker/index.php?func=detail&aid=1622642&group_id=1355&atid=101355
+ (let ((s "a   b"))