test-protocol.lisp
 1 ;;;; $Id: test-protocol.lisp 184 2007-04-19 21:54:49Z ehuelsmann $
2 ;;;; $URL: file:///project/cl-irc/svn/tags/0.9.2/test/test-protocol.lisp $
3
4 ;;;; See the LICENSE file for licensing information.
5
6 (in-package :cl-irc-test)
7
8 (defvar *nick1* "kire")
9 (defvar *nick2* "k|[]re")
10 (defvar *nick3* "k^{]re")
11 (defvar *chan1* "#liSP")
12
13 ;;normalize tests are broken because they need a connection these days
14 ;;(deftest normalize-nickname.1 (irc:normalize-nickname *nick1*) "kire")
15 ;;(deftest normalize-nickname.2 (irc:normalize-nickname *nick2*) "k\\[]re")
16 ;;(deftest normalize-nickname.3 (irc:normalize-nickname *nick3*) "k~[]re")
17
18 ;;(deftest normalize-channel-name.1 (irc:normalize-channel-name *chan1*) "#lisp")