[Sbcl-commits] CVS: sbcl/contrib/sb-bsd-sockets tests.lisp,1.7,1.8

[Alexey D. <ade...@us...>]

Update of /cvsroot/sbcl/sbcl/contrib/sb-bsd-sockets
In directory sc8-pr-cvs1:/tmp/cvs-serv28596/contrib/sb-bsd-sockets

Modified Files:
	tests.lisp 
Log Message:
0.8.1.24:
        * SB-BSD-SOCKETS: test of local sockets tries both stream and
          datagram kinds;
        * COMPLEX-= type method: if the second type is unknown, try to
          reparse it.


Index: tests.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/contrib/sb-bsd-sockets/tests.lisp,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- tests.lisp	30 Jun 2003 07:06:48 -0000	1.7
+++ tests.lisp	4 Jul 2003 05:18:25 -0000	1.8
@@ -135,9 +135,17 @@
 
 #-sunos
 (deftest simple-local-client
-    (let ((s (make-instance 'local-socket :type :stream)))
-      (format t "~A~%" s)
-      (socket-connect s "/dev/log")
+    (let ((s (make-instance 'local-socket :type :datagram)))
+      (format t "Connecting ~A... " s)
+      (finish-output)
+      (handler-case
+          (socket-connect s "/dev/log")
+        (socket-error ()
+          (setq s (make-instance 'local-socket :type :stream))
+          (format t "failed~%Retrying with ~A... " s)
+          (finish-output)
+          (socket-connect s "/dev/log")))
+      (format t "ok.~%")
       (let ((stream (socket-make-stream s :input t :output t :buffering :none)))
 	(format stream
 		"<7>bsd-sockets: Don't panic.  We're testing local-domain client code; this message can safely be ignored")