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

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Thu Jan 11 15:05:58 2007
New Revision: 145

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

Modified: usocket/trunk/test/test-usocket.lisp
==============================================================================
--- usocket/trunk/test/test-usocket.lisp	(original)
+++ usocket/trunk/test/test-usocket.lisp	Thu Jan 11 15:05:58 2007
@@ -37,6 +37,8 @@
 (defparameter +non-existing-host+ "10.0.0.13")
 (defparameter *soc1* (usocket::make-stream-socket :socket :my-socket
                                                   :stream :my-stream))
+(eval-when (:compile-toplevel :load-toplevel :execute)
+  (defparameter +common-lisp-net+ #(80 68 86 115)))
 
 (deftest make-socket.1 (usocket:socket *soc1*) :my-socket)
 (deftest make-socket.2 (usocket:socket-stream *soc1*) :my-stream)
@@ -78,7 +80,7 @@
                            #-(or lispworks armedbear cmu openmcl)
                              'usocket:host-unreachable-error
                            nil)
-      (usocket:socket-connect +non-existing-host+ 80) ;; == #(127 0 0 0)
+      (usocket:socket-connect "192.168.1.1" 80) ;; == #(127 0 0 0)
       :unreach)
   nil)
 
@@ -94,14 +96,14 @@
   t)
 (deftest socket-connect.2
   (with-caught-conditions (nil nil)
-    (let ((sock (usocket:socket-connect #(65 110 12 237) 80)))
+    (let ((sock (usocket:socket-connect +common-lisp-net+ 80)))
       (unwind-protect
           (typep sock 'usocket:usocket)
         (usocket:socket-close sock))))
   t)
 (deftest socket-connect.3
   (with-caught-conditions (nil nil)
-    (let ((sock (usocket:socket-connect 1097731309 80)))
+    (let ((sock (usocket:socket-connect (usocket::host-byte-order +common-lisp-net+) 80)))
       (unwind-protect
           (typep sock 'usocket:usocket)
         (usocket:socket-close sock))))
@@ -124,32 +126,32 @@
 
 (deftest socket-name.1
   (with-caught-conditions (nil nil)
-    (let ((sock (usocket:socket-connect #(65 110 12 237) 80)))
+    (let ((sock (usocket:socket-connect +common-lisp-net+ 80)))
       (unwind-protect
           (usocket::get-peer-address sock)
         (usocket:socket-close sock))))
-  #(65 110 12 237))
+  #.+common-lisp-net+)
 (deftest socket-name.2
   (with-caught-conditions (nil nil)
-    (let ((sock (usocket:socket-connect #(65 110 12 237) 80)))
+    (let ((sock (usocket:socket-connect +common-lisp-net+ 80)))
       (unwind-protect
           (usocket::get-peer-port sock)
         (usocket:socket-close sock))))
   80)
 (deftest socket-name.3
   (with-caught-conditions (nil nil)
-    (let ((sock (usocket:socket-connect #(65 110 12 237) 80)))
+    (let ((sock (usocket:socket-connect +common-lisp-net+ 80)))
       (unwind-protect
           (usocket::get-peer-name sock)
         (usocket:socket-close sock))))
-  #(65 110 12 237) 80)
+  #.+common-lisp-net+ 80)
 (deftest socket-name.4
   (with-caught-conditions (nil nil)
-    (let ((sock (usocket:socket-connect #(65 110 12 237) 80)))
+    (let ((sock (usocket:socket-connect +common-lisp-net+ 80)))
       (unwind-protect
           (usocket::get-local-address sock)
         (usocket:socket-close sock))))
-  #(10 0 0 252))
+  #(192 168 1 65))
 
 
 (defun run-usocket-tests ()