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