[usocket-cvs] r104 - usocket/trunk/test

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Fri Feb 17 01:49:57 2006
New Revision: 104

Modified:
   usocket/trunk/test/test-usocket.lisp
Log:
Add 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 01:49:57 2006
@@ -122,6 +122,28 @@
   #+clisp "HTTP/1.1 200 OK"
   #-clisp #.(format nil "HTTP/1.1 200 OK~A" #\Return) nil)
 
+(deftest socket-name.1
+  (with-caught-conditions (nil nil)
+    (let ((sock (usocket:socket-connect #(65 110 12 237) 80)))
+      (unwind-protect
+          (usocket::get-peer-address sock)
+        (usocket:socket-close sock))))
+  #(65 110 12 237))
+(deftest socket-name.2
+  (with-caught-conditions (nil nil)
+    (let ((sock (usocket:socket-connect #(65 110 12 237) 80)))
+      (unwind-protect
+          (usocket::get-peer-port sock)
+        (usocket:socket-close sock))))
+  80)
+(deftest socket-name.2
+  (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)
+
 
 (defun run-usocket-tests ()
   (do-tests))