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