From: <cli...@li...> - 2005-12-26 04:12:05
|
Send clisp-cvs mailing list submissions to cli...@li... To subscribe or unsubscribe via the World Wide Web, visit https://lists.sourceforge.net/lists/listinfo/clisp-cvs or, via email, send a message with subject or body 'help' to cli...@li... You can reach the person managing the list at cli...@li... When replying, please edit your Subject line so it is more specific than "Re: Contents of clisp-cvs digest..." CLISP CVS commits for today Today's Topics: 1. clisp/tests alltest.tst,1.46,1.47 ChangeLog,1.446,1.447 (Sam Steingold) 2. clisp/modules/rawsock test.tst,1.41,1.42 (Sam Steingold) 3. clisp/modules/rawsock test.tst,1.42,1.43 (Sam Steingold) --__--__-- Message: 1 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/tests alltest.tst,1.46,1.47 ChangeLog,1.446,1.447 Date: Sun, 25 Dec 2005 17:57:48 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/tests In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24102/tests Modified Files: alltest.tst ChangeLog Log Message: disabled the lambda-parameters-limit test on win32/g++ as a work-around for bug 1390134 Index: alltest.tst =================================================================== RCS file: /cvsroot/clisp/clisp/tests/alltest.tst,v retrieving revision 1.46 retrieving revision 1.47 diff -u -d -r1.46 -r1.47 --- alltest.tst 6 Oct 2005 18:59:43 -0000 1.46 +++ alltest.tst 25 Dec 2005 17:57:45 -0000 1.47 @@ -604,11 +604,12 @@ (funcall cons 1 2)))) (KONS (1 . 2) 3) -(let* ((n (min lambda-parameters-limit 1024)) - (vars (loop repeat n collect (gensym)))) - (eval - `(= ,n (flet ((%f ,vars (+ ,@vars))) - (%f ,@(loop for e in vars collect 1)))))) +(or #+win32 (string= "g++" (software-type) :end2 3) + (let* ((n (min lambda-parameters-limit 1024)) + (vars (loop repeat n collect (gensym)))) + (eval + `(= ,n (flet ((%f ,vars (+ ,@vars))) + (%f ,@(loop for e in vars collect 1))))))) T ;TAGBODY, GO, MULTIPLE-VALUE-LIST, MULTIPLE-VALUE-CALL, MULTIPLE-VALUE-PROG1, Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/tests/ChangeLog,v retrieving revision 1.446 retrieving revision 1.447 diff -u -d -r1.446 -r1.447 --- ChangeLog 22 Dec 2005 16:44:26 -0000 1.446 +++ ChangeLog 25 Dec 2005 17:57:46 -0000 1.447 @@ -1,3 +1,8 @@ +2005-12-25 Sam Steingold <sd...@gn...> + + * alltest.tst: disabled the lambda-parameters-limit test on win32/g++ + as a work-around for bug 1390134 + 2005-12-22 Sam Steingold <sd...@gn...> * number2.tst: test EXT:! --__--__-- Message: 2 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/modules/rawsock test.tst,1.41,1.42 Date: Mon, 26 Dec 2005 01:38:49 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/modules/rawsock In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv581 Modified Files: test.tst Log Message: sockatmark returns a boolean, fix the test Index: test.tst =================================================================== RCS file: /cvsroot/clisp/clisp/modules/rawsock/test.tst,v retrieving revision 1.41 retrieving revision 1.42 diff -u -d -r1.41 -r1.42 --- test.tst 15 Dec 2005 16:55:14 -0000 1.41 +++ test.tst 26 Dec 2005 01:38:47 -0000 1.42 @@ -91,8 +91,7 @@ (ext:socket-status (list (cons *sock* :input))) (:INPUT) -(or (null (fboundp 'rawsock:sockatmark)) - (zerop (rawsock:sockatmark *sock*))) T +(and (fboundp 'rawsock:sockatmark) (rawsock:sockatmark *sock*)) NIL (let ((size (rawsock:recv *sock* *buffer*))) (show (setq *recv-ret* (list size (from-bytes *buffer* size)))) --__--__-- Message: 3 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/modules/rawsock test.tst,1.42,1.43 Date: Mon, 26 Dec 2005 02:34:08 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/modules/rawsock In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8771/modules/rawsock Modified Files: test.tst Log Message: fixed sendmsg/recvmsg test Index: test.tst =================================================================== RCS file: /cvsroot/clisp/clisp/modules/rawsock/test.tst,v retrieving revision 1.42 retrieving revision 1.43 diff -u -d -r1.42 -r1.43 --- test.tst 26 Dec 2005 01:38:47 -0000 1.42 +++ test.tst 26 Dec 2005 02:34:06 -0000 1.43 @@ -91,8 +91,6 @@ (ext:socket-status (list (cons *sock* :input))) (:INPUT) -(and (fboundp 'rawsock:sockatmark) (rawsock:sockatmark *sock*)) NIL - (let ((size (rawsock:recv *sock* *buffer*))) (show (setq *recv-ret* (list size (from-bytes *buffer* size)))) (ext:socket-status *sock*)) @@ -237,27 +235,36 @@ ;; message (when (and (fboundp 'rawsock:sendmsg) (fboundp 'rawsock:recvmsg)) (let* ((message '("man" "bites" "dog")) + (len (reduce #'+ message :key #'length)) (message1 - (show (rawsock:make-message :addr *sa-local* - :iovec (map 'vector #'to-bytes message)) - :pretty t)) + (rawsock:make-message :addr *sa-local* + :iovec (map 'vector #'to-bytes message))) (message2 - (show (rawsock:make-message :addr (rawsock:make-sockaddr :inet) - :iovec (map 'vector #'make-byte-vector - message)) - :pretty t))) - (assert (= 11 (rawsock:sendmsg *sock1* message1))) - (assert (= 11 (rawsock:recvmsg *sock2* message2))) - (show (list message1 message2) :pretty t) + (rawsock:make-message :addr (rawsock:make-sockaddr :inet) + :iovec (map 'vector #'make-byte-vector + message)))) + (show (list :before message1 message2) :pretty t) + ;; new connectionless-mode sockets + (setq *sock1* (rawsock:socket :INET :DGRAM nil) + *sock2* (rawsock:socket :INET :DGRAM nil)) + (rawsock:bind *sock2* *sa-local*) + (assert (= len (rawsock:sendmsg *sock1* message1))) + (assert (= len (rawsock:recvmsg *sock2* message2))) + (show (list :after message1 message2) :pretty t) (assert (equalp (rawsock:message-iovec message1) (rawsock:message-iovec message2))) (when (fboundp 'rawsock:getnameinfo) - (show (list (multiple-value-list + (show (list 'rawsock:getnameinfo + (multiple-value-list (rawsock:getnameinfo (rawsock:message-addr message1))) (multiple-value-list - (rawsock:getnameinfo (rawsock:message-addr message2))))))) - (rawsock:sock-close *sock1*) (rawsock:sock-close *sock2*) - (rawsock:sock-close *sock*) + (rawsock:getnameinfo (rawsock:message-addr message2)))))) + ;; I get "(EFAULT): Bad address" on Linux 2.6.14-1.1637_FC4 + ;; (when (fboundp 'rawsock:sockatmark) + ;; (show (list 'rawsock:sockatmark + ;; (rawsock:sockatmark *sock1*) + ;; (rawsock:sockatmark *sock2*)))) + (rawsock:sock-close *sock1*) (rawsock:sock-close *sock2*)) nil) NIL --__--__-- _______________________________________________ clisp-cvs mailing list cli...@li... https://lists.sourceforge.net/lists/listinfo/clisp-cvs End of clisp-cvs Digest |