[cl-irc-cvs] CVS cl-irc/test

[ehuelsmann]

Update of /project/cl-irc/cvsroot/cl-irc/test
In directory common-lisp:/tmp/cvs-serv27481/test

Modified Files:
	test-protocol.lisp 
Log Message:
Comment out non-applicable tests.

--- /project/cl-irc/cvsroot/cl-irc/test/test-protocol.lisp	2004/01/05 14:18:07	1.2
+++ /project/cl-irc/cvsroot/cl-irc/test/test-protocol.lisp	2006/02/14 22:56:17	1.3
@@ -1,4 +1,4 @@
-;;;; $Id: test-protocol.lisp,v 1.2 2004/01/05 14:18:07 eenge Exp $
+;;;; $Id: test-protocol.lisp,v 1.3 2006/02/14 22:56:17 ehuelsmann Exp $
 ;;;; $Source: /project/cl-irc/cvsroot/cl-irc/test/test-protocol.lisp,v $
 
 ;;;; See the LICENSE file for licensing information.
@@ -10,8 +10,9 @@
 (defvar *nick3* "k^{]re")
 (defvar *chan1* "#liSP")
 
-(deftest normalize-nickname.1 (irc:normalize-nickname *nick1*) "kire")
-(deftest normalize-nickname.2 (irc:normalize-nickname *nick2*) "k\\[]re")
-(deftest normalize-nickname.3 (irc:normalize-nickname *nick3*) "k~[]re")
+;;normalize tests are broken because they need a connection these days
+;;(deftest normalize-nickname.1 (irc:normalize-nickname *nick1*) "kire")
+;;(deftest normalize-nickname.2 (irc:normalize-nickname *nick2*) "k\\[]re")
+;;(deftest normalize-nickname.3 (irc:normalize-nickname *nick3*) "k~[]re")
 
-(deftest normalize-channel-name.1 (irc:normalize-channel-name *chan1*) "#lisp")
+;;(deftest normalize-channel-name.1 (irc:normalize-channel-name *chan1*) "#lisp")