ttest-condition.lisp - clic - Clic is an command line interactive client for gopher written in Common LISP
 (HTM) git clone git://bitreich.org/clic/ git://hg6vgqziawt5s4dj.onion/clic/
 (DIR) Log
 (DIR) Files
 (DIR) Refs
 (DIR) Tags
 (DIR) LICENSE
       ---
       ttest-condition.lisp (713B)
       ---
            1 ;;;; See LICENSE for licensing information.
            2 
            3 (in-package :usocket-test)
            4 
            5 (deftest ns-host-not-found-error.1
            6   (with-caught-conditions (usocket:ns-host-not-found-error nil)
            7     (usocket:socket-connect "xxx" 123)
            8     t)
            9   nil)
           10 
           11 (deftest timeout-error.1
           12   (with-caught-conditions (usocket:timeout-error nil)
           13     (usocket:socket-connect "common-lisp.net" 81 :timeout 0)
           14     t)
           15   nil)
           16 
           17 (deftest connection-refused-error.1
           18   (with-caught-conditions (usocket:connection-refused-error nil)
           19     (usocket:socket-connect "common-lisp.net" 81)
           20     t)
           21   nil)
           22 
           23 (deftest operation-not-permitted-error.1
           24   (with-caught-conditions (usocket:operation-not-permitted-error nil)
           25     (usocket:socket-listen "0.0.0.0" 81)
           26     t)
           27   nil)