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)