[usocket-cvs] r144 - usocket/trunk/test

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Thu Jan 11 02:54:04 2007
New Revision: 144

Modified:
   usocket/trunk/test/test-usocket.lisp
Log:
Update test package with latest function signatures.

Modified: usocket/trunk/test/test-usocket.lisp
==============================================================================
--- usocket/trunk/test/test-usocket.lisp	(original)
+++ usocket/trunk/test/test-usocket.lisp	Thu Jan 11 02:54:04 2007
@@ -35,8 +35,8 @@
                          c))))))
 
 (defparameter +non-existing-host+ "10.0.0.13")
-(defparameter *soc1* (usocket::make-socket :socket :my-socket
-                                           :stream :my-stream))
+(defparameter *soc1* (usocket::make-stream-socket :socket :my-socket
+                                                  :stream :my-stream))
 
 (deftest make-socket.1 (usocket:socket *soc1*) :my-socket)
 (deftest make-socket.2 (usocket:socket-stream *soc1*) :my-stream)