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

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Thu Jan 11 16:06:38 2007
New Revision: 146

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

Modified: usocket/trunk/test/test-usocket.lisp
==============================================================================
--- usocket/trunk/test/test-usocket.lisp	(original)
+++ usocket/trunk/test/test-usocket.lisp	Thu Jan 11 16:06:38 2007
@@ -34,7 +34,8 @@
                          (describe c)
                          c))))))
 
-(defparameter +non-existing-host+ "10.0.0.13")
+(defparameter +non-existing-host+ "192.168.1.1")
+(defparameter +unused-local-port+ 15213)
 (defparameter *soc1* (usocket::make-stream-socket :socket :my-socket
                                                   :stream :my-stream))
 (eval-when (:compile-toplevel :load-toplevel :execute)
@@ -45,17 +46,17 @@
 
 (deftest socket-no-connect.1
   (with-caught-conditions ('usocket:socket-error nil)
-      (usocket:socket-connect "127.0.0.0" 80)
+      (usocket:socket-connect "127.0.0.0" +unused-local-port+)
       t)
   nil)
 (deftest socket-no-connect.2
   (with-caught-conditions ('usocket:socket-error nil)
-    (usocket:socket-connect #(127 0 0 0) 80)
+    (usocket:socket-connect #(127 0 0 0) +unused-local-port+)
     t)
   nil)
 (deftest socket-no-connect.3
   (with-caught-conditions ('usocket:socket-error nil)
-    (usocket:socket-connect 2130706432 80) ;; == #(127 0 0 0)
+    (usocket:socket-connect 2130706432 +unused-local-port+) ;; == #(127 0 0 0)
     t)
   nil)
 
@@ -67,7 +68,7 @@
                            #+openmcl
                              'usocket:timeout-error
                            nil)
-    (usocket:socket-connect 2130706432 80) ;; == #(127 0 0 0)
+    (usocket:socket-connect 2130706432 +unused-local-port+) ;; == #(127 0 0 0)
     :unreach)
   nil)
 (deftest socket-failure.2
@@ -80,7 +81,7 @@
                            #-(or lispworks armedbear cmu openmcl)
                              'usocket:host-unreachable-error
                            nil)
-      (usocket:socket-connect "192.168.1.1" 80) ;; == #(127 0 0 0)
+      (usocket:socket-connect +non-existing-host+ 80) ;; 80 = just a port
       :unreach)
   nil)