wok annotate clisp/stuff/streams.tst.patch @ rev 23907

Up btrfs-progs (5.7)
author Pascal Bellard <pascal.bellard@slitaz.org>
date Mon Aug 03 16:02:48 2020 +0000 (2020-08-03)
parents
children
rev   line source
al@19318 1 Disable one test from "streams" group.
al@19318 2
al@19318 3
al@19318 4 1) Normal test flow: http://cook.slitaz.org/cooker.cgi?log=clisp.log.2
al@19318 5
al@19318 6 (STRINGP (WITH-OUTPUT-TO-STRING (S) (DESCRIBE NIL S)))
al@19318 7 ;; 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"
al@19318 8 ;; connecting to "http://www.clisp.org/impnotes/id-href.map"...connected...HTTP/1.1 200 OK...74,297 bytes
al@19318 9 ;; SYSTEM::GET-STRING-MAP(#<IO INPUT-BUFFERED SOCKET-STREAM CHARACTER www.clisp.org:80>)...2,004 IDs
al@19318 10 ;; SYSTEM::ENSURE-IMPNOTES-MAP(#P"/home/slitaz/wok/clisp/source/clisp-2.49/doc/Symbol-Table.text")...
al@19318 11 WARNING: SYSTEM::ENSURE-IMPNOTES-MAP: invalid id "compile-errors" for symbol
al@19318 12 "EXT:SOURCE-PROGRAM-ERROR"
al@19318 13 WARNING: SYSTEM::ENSURE-IMPNOTES-MAP: invalid id "compile-errors" for symbol
al@19318 14 "EXT:SOURCE-PROGRAM-ERROR-DETAIL"
al@19318 15 WARNING: SYSTEM::ENSURE-IMPNOTES-MAP: invalid id "compile-errors" for symbol
al@19318 16 "EXT:SOURCE-PROGRAM-ERROR-FORM"
al@19318 17 644 IDs
al@19318 18 EQL-OK: T
al@19318 19
al@19318 20
al@19318 21 2) Something wrong (network problems?): http://cook.slitaz.org/cooker.cgi?pkg=clisp
al@19318 22
al@19318 23 (STRINGP (WITH-OUTPUT-TO-STRING (S) (DESCRIBE NIL S)))
al@19318 24 ;; 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"
al@19318 25 ;; connecting to "http://clisp.cons.orghttps://clisp.cons.org:80/impnotes/id-href.map"...
al@19318 26 [SIMPLE-PARSE-ERROR]: PARSE-INTEGER: substring "" does not have integer syntax at position 0
al@19318 27
al@19318 28 ERROR!! ERROR should be T !
al@19318 29
al@19318 30
al@19318 31 --- a/tests/streams.tst
al@19318 32 +++ b/tests/streams.tst
al@19318 33 @@ -1036,8 +1036,8 @@
al@19318 34 (describe (make-array nil :element-type nil) s)))
al@19318 35 T
al@19318 36
al@19318 37 -(stringp (with-output-to-string (s) (describe nil s)))
al@19318 38 -T
al@19318 39 +;;(stringp (with-output-to-string (s) (describe nil s)))
al@19318 40 +;;T
al@19318 41
al@19318 42 ;; https://sourceforge.net/tracker/index.php?func=detail&aid=1622642&group_id=1355&atid=101355
al@19318 43 (let ((s "a b"))