SliTaz Repositories

     1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/clisp/stuff/streams.tst.patch	Sat Sep 03 09:28:15 2022 +0000
     1.3 @@ -0,0 +1,43 @@
     1.4 +Disable one test from "streams" group.
     1.5 +
     1.6 +
     1.7 +1) Normal test flow: http://cook.slitaz.org/cooker.cgi?log=clisp.log.2
     1.8 +
     1.9 +(STRINGP (WITH-OUTPUT-TO-STRING (S) (DESCRIBE NIL S)))
    1.10 +;; 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"
    1.11 +;; connecting to "http://www.clisp.org/impnotes/id-href.map"...connected...HTTP/1.1 200 OK...74,297 bytes
    1.12 +;; SYSTEM::GET-STRING-MAP(#<IO INPUT-BUFFERED SOCKET-STREAM CHARACTER www.clisp.org:80>)...2,004 IDs
    1.13 +;; SYSTEM::ENSURE-IMPNOTES-MAP(#P"/home/slitaz/wok/clisp/source/clisp-2.49/doc/Symbol-Table.text")...
    1.14 +WARNING: SYSTEM::ENSURE-IMPNOTES-MAP: invalid id "compile-errors" for symbol
    1.15 +         "EXT:SOURCE-PROGRAM-ERROR"
    1.16 +WARNING: SYSTEM::ENSURE-IMPNOTES-MAP: invalid id "compile-errors" for symbol
    1.17 +         "EXT:SOURCE-PROGRAM-ERROR-DETAIL"
    1.18 +WARNING: SYSTEM::ENSURE-IMPNOTES-MAP: invalid id "compile-errors" for symbol
    1.19 +         "EXT:SOURCE-PROGRAM-ERROR-FORM"
    1.20 +644 IDs
    1.21 +EQL-OK: T
    1.22 +
    1.23 +
    1.24 +2) Something wrong (network problems?): http://cook.slitaz.org/cooker.cgi?pkg=clisp
    1.25 +
    1.26 +(STRINGP (WITH-OUTPUT-TO-STRING (S) (DESCRIBE NIL S)))
    1.27 +;; 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"
    1.28 +;; connecting to "http://clisp.cons.orghttps://clisp.cons.org:80/impnotes/id-href.map"...
    1.29 +[SIMPLE-PARSE-ERROR]: PARSE-INTEGER: substring "" does not have integer syntax at position 0
    1.30 +
    1.31 +ERROR!! ERROR should be T !
    1.32 +
    1.33 +
    1.34 +--- a/tests/streams.tst
    1.35 ++++ b/tests/streams.tst
    1.36 +@@ -1036,8 +1036,8 @@
    1.37 +            (describe (make-array nil :element-type nil) s)))
    1.38 + T
    1.39 + 
    1.40 +-(stringp (with-output-to-string (s) (describe nil s)))
    1.41 +-T
    1.42 ++;;(stringp (with-output-to-string (s) (describe nil s)))
    1.43 ++;;T
    1.44 + 
    1.45 + ;; https://sourceforge.net/tracker/index.php?func=detail&aid=1622642&group_id=1355&atid=101355
    1.46 + (let ((s "a   b"))