ian/dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

sbcl stuff

Browse source
This commit is contained in:
Ian Keane 2020-01-20 14:13:08 -05:00
parent 1d1dbc34df
commit 5d91dbb667
335 changed files with 119806 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

28
sbcl/.quicklisp/dists/quicklisp/software/usocket-0.8.3/test/test-condition.lisp Normal file
View file

@ -0,0 +1,28 @@
;;;; -*- Mode: LISP; Base: 10; Syntax: ANSI-Common-lisp; Package: USOCKET-TEST -*-
;;;; See LICENSE for licensing information.
(in-package :usocket-test)
(deftest ns-host-not-found-error.1
(with-caught-conditions (usocket:ns-host-not-found-error nil)
(usocket:socket-connect "xxx" 123)
t)
nil)
(deftest timeout-error.1
(with-caught-conditions (usocket:timeout-error nil)
(usocket:socket-connect "common-lisp.net" 81 :timeout 0)
t)
nil)
(deftest connection-refused-error.1
(with-caught-conditions (usocket:connection-refused-error nil)
(usocket:socket-connect "common-lisp.net" 81)
t)
nil)
(deftest operation-not-permitted-error.1
(with-caught-conditions (usocket:operation-not-permitted-error nil)
(usocket:socket-listen "0.0.0.0" 81)
t)
nil)