Author: ehuelsmann Date: Fri Feb 17 14:26:47 2006 New Revision: 105

Modified: usocket/trunk/test/test-usocket.lisp Log: More tests.

Modified: usocket/trunk/test/test-usocket.lisp ============================================================================== --- usocket/trunk/test/test-usocket.lisp (original) +++ usocket/trunk/test/test-usocket.lisp Fri Feb 17 14:26:47 2006 @@ -136,13 +136,20 @@ (usocket::get-peer-port sock) (usocket:socket-close sock)))) 80) -(deftest socket-name.2 +(deftest socket-name.3 (with-caught-conditions (nil nil) (let ((sock (usocket:socket-connect #(65 110 12 237) 80))) (unwind-protect (usocket::get-peer-name sock) (usocket:socket-close sock)))) #(65 110 12 237) 80) +(deftest socket-name.4 + (with-caught-conditions (nil nil) + (let ((sock (usocket:socket-connect #(65 110 12 237) 80))) + (unwind-protect + (usocket::get-local-address sock) + (usocket:socket-close sock)))) + #(10 0 0 252))

(defun run-usocket-tests ()