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")