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)