Author: ctian Date: Mon Mar 28 14:28:19 2011 New Revision: 591
Log: [test] Try to produce same detailed error type on all platforms
Modified: usocket/branches/0.5.x/test/test-usocket.lisp
Modified: usocket/branches/0.5.x/test/test-usocket.lisp ============================================================================== --- usocket/branches/0.5.x/test/test-usocket.lisp (original) +++ usocket/branches/0.5.x/test/test-usocket.lisp Mon Mar 28 14:28:19 2011 @@ -74,27 +74,13 @@ nil)
(deftest socket-failure.1 - (with-caught-conditions (#-(or cmu lispworks armedbear openmcl mcl) - usocket:network-unreachable-error - #+(or cmu lispworks armedbear) - usocket:unknown-error - #+(or openmcl mcl) - usocket:timeout-error - nil) + (with-caught-conditions (usocket:timeout-error nil) (usocket:socket-connect 2130706432 +unused-local-port+ :timeout 1) ;; == #(127 0 0 0) :unreach) nil)
(deftest socket-failure.2 - (with-caught-conditions (#+(or lispworks armedbear) - usocket:unknown-error - #+cmu - usocket:network-unreachable-error - #+(or openmcl mcl) - usocket:timeout-error - #-(or lispworks armedbear cmu openmcl mcl) - usocket:host-unreachable-error - nil) + (with-caught-conditions (usocket:timeout-error nil) (usocket:socket-connect +non-existing-host+ 80 :timeout 1) ;; 80 = just a port :unreach) nil)