File: test-protocol.lisp

package info (click to toggle)
cl-irc 20060514-dfsg-1
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 3,168 kB
  • ctags: 567
  • sloc: lisp: 3,922; makefile: 46; sh: 28
file content (18 lines) | stat: -rw-r--r-- 643 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
;;;; $Id: test-protocol.lisp 127 2006-02-14 22:56:17Z ehuelsmann $
;;;; $Source$

;;;; See the LICENSE file for licensing information.

(in-package :cl-irc-test)

(defvar *nick1* "kire")
(defvar *nick2* "k|[]re")
(defvar *nick3* "k^{]re")
(defvar *chan1* "#liSP")

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