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

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Wed Feb  8 14:43:08 2006
New Revision: 61

Modified:
   usocket/trunk/test/test-usocket.lisp
Log:
One more test case.

Modified: usocket/trunk/test/test-usocket.lisp
==============================================================================
--- usocket/trunk/test/test-usocket.lisp	(original)
+++ usocket/trunk/test/test-usocket.lisp	Wed Feb  8 14:43:08 2006
@@ -5,6 +5,8 @@
 
 (in-package :usocket-test)
 
+
+(defparameter +non-existing-host+ "10.0.0.13")
 (defparameter *soc1* (usocket::make-socket :socket :my-socket
                                            :stream :my-stream))
 
@@ -46,6 +48,20 @@
       (usocket:socket-connect 2130706432 80) ;; == #(127 0 0 0)
       :unreach))
   nil)
+(deftest socket-failure.2
+  (catch 'caught-error
+    (handler-bind ((usocket:host-unreachable-error
+                    #'(lambda (c) (throw 'caught-error nil)))
+                   ;; cmu doesn't report as specific as above
+                   #+(or cmu lispworks)
+                   (usocket:unknown-error
+                    #'(lambda (c) (throw 'caught-error nil)))
+                   (condition
+                    #'(lambda (c) (throw 'caught-error t))))
+      (usocket:socket-connect +non-existing-host+ 80) ;; == #(127 0 0 0)
+      :unreach))
+  nil)
+
 
 ;; let's hope c-l.net doesn't move soon, or that people start to
 ;; test usocket like crazy..