projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.8.0.82:
[sbcl.git]
/
contrib
/
sb-bsd-sockets
/
tests.lisp
diff --git
a/contrib/sb-bsd-sockets/tests.lisp
b/contrib/sb-bsd-sockets/tests.lisp
index
c6c3c76
..
0d6f3fc
100644
(file)
--- a/
contrib/sb-bsd-sockets/tests.lisp
+++ b/
contrib/sb-bsd-sockets/tests.lisp
@@
-1,5
+1,5
@@
(defpackage "SB-BSD-SOCKETS-TEST"
(defpackage "SB-BSD-SOCKETS-TEST"
- (:use "CL" "SB-BSD-SOCKETS" "RT"))
+ (:use "CL" "SB-BSD-SOCKETS" "SB-RT"))
#||
#||
@@
-128,13
+128,11
@@
Tests are in the file <tt>tests.lisp</tt> and also make good examples.
(> (length data) 0))))
t)
(> (length data) 0))))
t)
-#||
-<h2>Local-domain sockets</h2>
+;;; A fairly rudimentary test that connects to the syslog socket and
+;;; sends a message. Priority 7 is kern.debug; you'll probably want
+;;; to look at /etc/syslog.conf or local equivalent to find out where
+;;; the message ended up
-A fairly rudimentary test that connects to the syslog socket and sends a
-message. Priority 7 is kern.debug; you'll probably want to look at
-/etc/syslog.conf or local equivalent to find out where the message ended up
-||#
#-sunos
(deftest simple-local-client
(let ((s (make-instance 'local-socket :type :datagram)))
#-sunos
(deftest simple-local-client
(let ((s (make-instance 'local-socket :type :datagram)))