[usocket-devel] clisp: small patch and result of test

[Yaroslav Kavenchuk]

clisp from CVS head, win32

Patch for remove some warnings:

--- backend/clisp.lisp     Wed Jul 25 22:28:12 2007
+++ backend/clisp.lisp  Mon Aug 27 23:00:33 2007
@@ -5,6 +5,7 @@

 (in-package :usocket)

+(FFI:DEFAULT-FOREIGN-LANGUAGE :STDC)

 ;; utility routine for looking up the current host name
 (FFI:DEF-CALL-OUT get-host-name-internal
@@ -73,7 +74,7 @@
                            (element-type 'character))
   ;; clisp 2.39 sets SO_REUSEADDRESS to 1 by default; no need to
   ;; to explicitly turn it on; unfortunately, there's no way to turn it 
off...
-  (declare (ignore reuseaddress reuse-address))
+  (declare (ignore reuseaddress reuse-address reuse-address-supplied-p))
   (let ((sock (apply #'socket:socket-server
                      (append (list port
                                    :backlog backlog)



Result of test:

Test USOCKET-TEST::SOCKET-FAILURE.1 failed
Form:
(USOCKET-TEST::WITH-CAUGHT-CONDITIONS 
('USOCKET:NETWORK-UNREACHABLE-ERROR NIL)
 (USOCKET:SOCKET-CONNECT 2130706432 USOCKET-TEST::+UNUSED-LOCAL-PORT+) 
:UNREACH)
Expected value: NIL
Actual value: #<USOCKET:ADDRESS-NOT-AVAILABLE-ERROR #x19F191C9>.

Test USOCKET-TEST::SOCKET-CONNECT.1 failed
Form:
(USOCKET-TEST::WITH-CAUGHT-CONDITIONS (NIL NIL)
 (LET ((USOCKET-TEST::SOCK (USOCKET:SOCKET-CONNECT "common-lisp.net" 80)))
  (UNWIND-PROTECT (TYPEP USOCKET-TEST::SOCK 'USOCKET:USOCKET) 
(USOCKET:SOCKET-CLOSE USOCKET-TEST::SOCK))))
Expected value: T
Actual value: #<USOCKET:INVALID-ARGUMENT-ERROR #x19F19871>.

Test USOCKET-TEST::SOCKET-CONNECT.2 failed
Form:
(USOCKET-TEST::WITH-CAUGHT-CONDITIONS (NIL NIL)
 (LET ((USOCKET-TEST::SOCK (USOCKET:SOCKET-CONNECT 
USOCKET-TEST::+COMMON-LISP-NET+ 80)))
  (UNWIND-PROTECT (TYPEP USOCKET-TEST::SOCK 'USOCKET:USOCKET) 
(USOCKET:SOCKET-CLOSE USOCKET-TEST::SOCK))))
Expected value: T
Actual value: #<USOCKET:HOST-UNREACHABLE-ERROR #x19F198D9>.

Test USOCKET-TEST::SOCKET-CONNECT.3 failed
Form:
(USOCKET-TEST::WITH-CAUGHT-CONDITIONS (NIL NIL)
 (LET ((USOCKET-TEST::SOCK (USOCKET:SOCKET-CONNECT 
(USOCKET:HOST-BYTE-ORDER USOCKET-TEST::+COMMON-LISP-NET+) 80)))
  (UNWIND-PROTECT (TYPEP USOCKET-TEST::SOCK 'USOCKET:USOCKET) 
(USOCKET:SOCKET-CLOSE USOCKET-TEST::SOCK))))
Expected value: T
Actual value: #<USOCKET:HOST-UNREACHABLE-ERROR #x19F19955>.

Test USOCKET-TEST::SOCKET-STREAM.1 failed
Form:
(USOCKET-TEST::WITH-CAUGHT-CONDITIONS (NIL NIL)
 (LET ((USOCKET-TEST::SOCK (USOCKET:SOCKET-CONNECT "common-lisp.net" 80)))
  (UNWIND-PROTECT
   (PROGN (FORMAT (USOCKET:SOCKET-STREAM USOCKET-TEST::SOCK) "GET / 
HTTP/1.0~A~A~A~A" #\Return #\Newline #\Return #\Newline)
    (FORCE-OUTPUT (USOCKET:SOCKET-STREAM USOCKET-TEST::SOCK)) (READ-LINE 
(USOCKET:SOCKET-STREAM USOCKET-TEST::SOCK)))
   (USOCKET:SOCKET-CLOSE USOCKET-TEST::SOCK))))
Expected values: "HTTP/1.1 200 OK"
                 NIL
Actual value: #<USOCKET:INVALID-ARGUMENT-ERROR #x19F19955>.

Test USOCKET-TEST::SOCKET-NAME.1 failed
Form:
(USOCKET-TEST::WITH-CAUGHT-CONDITIONS (NIL NIL)
 (LET ((USOCKET-TEST::SOCK (USOCKET:SOCKET-CONNECT 
USOCKET-TEST::+COMMON-LISP-NET+ 80)))
  (UNWIND-PROTECT (USOCKET:GET-PEER-ADDRESS USOCKET-TEST::SOCK) 
(USOCKET:SOCKET-CLOSE USOCKET-TEST::SOCK))))
Expected value: #(80 68 86 115)
Actual value: #<USOCKET:HOST-UNREACHABLE-ERROR #x19F19955>.

Test USOCKET-TEST::SOCKET-NAME.2 failed
Form:
(USOCKET-TEST::WITH-CAUGHT-CONDITIONS (NIL NIL)
 (LET ((USOCKET-TEST::SOCK (USOCKET:SOCKET-CONNECT 
USOCKET-TEST::+COMMON-LISP-NET+ 80)))
  (UNWIND-PROTECT (USOCKET:GET-PEER-PORT USOCKET-TEST::SOCK) 
(USOCKET:SOCKET-CLOSE USOCKET-TEST::SOCK))))
Expected value: 80
Actual value: #<USOCKET:HOST-UNREACHABLE-ERROR #x19F19955>.

Test USOCKET-TEST::SOCKET-NAME.3 failed
Form:
(USOCKET-TEST::WITH-CAUGHT-CONDITIONS (NIL NIL)
 (LET ((USOCKET-TEST::SOCK (USOCKET:SOCKET-CONNECT 
USOCKET-TEST::+COMMON-LISP-NET+ 80)))
  (UNWIND-PROTECT (USOCKET:GET-PEER-NAME USOCKET-TEST::SOCK) 
(USOCKET:SOCKET-CLOSE USOCKET-TEST::SOCK))))
Expected values: #(80 68 86 115)
                 80
Actual value: #<USOCKET:HOST-UNREACHABLE-ERROR #x19F19955>.

Test USOCKET-TEST::SOCKET-NAME.4 failed
Form:
(USOCKET-TEST::WITH-CAUGHT-CONDITIONS (NIL NIL)
 (LET ((USOCKET-TEST::SOCK (USOCKET:SOCKET-CONNECT 
USOCKET-TEST::+COMMON-LISP-NET+ 80)))
  (UNWIND-PROTECT (USOCKET:GET-LOCAL-ADDRESS USOCKET-TEST::SOCK) 
(USOCKET:SOCKET-CLOSE USOCKET-TEST::SOCK))))
Expected value: #(192 168 1 65)
Actual value: #<USOCKET:HOST-UNREACHABLE-ERROR #x19F19955>.

9 out of 15 total tests failed: USOCKET-TEST::SOCKET-FAILURE.1,
   USOCKET-TEST::SOCKET-CONNECT.1, USOCKET-TEST::SOCKET-CONNECT.2,
   USOCKET-TEST::SOCKET-CONNECT.3, USOCKET-TEST::SOCKET-STREAM.1,
   USOCKET-TEST::SOCKET-NAME.1, USOCKET-TEST::SOCKET-NAME.2,
   USOCKET-TEST::SOCKET-NAME.3, USOCKET-TEST::SOCKET-NAME.4.

Debug it?

-- 
WBR, Yaroslav Kavenchuk.