test-condition.lisp - clic - Clic is an command line interactive client for gopher written in Common LISP
HTML 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)