File: test-protocol.lisp

package info (click to toggle)
cl-irc 1:0.9.2+dfsg1-2
  • links: PTS, VCS
  • area: main
  • in suites: bullseye, buster, sid
  • size: 3,124 kB
  • sloc: lisp: 4,495; makefile: 45
file content (18 lines) | stat: -rw-r--r-- 704 bytes parent folder | download | duplicates (2)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
;;;; $Id: test-protocol.lisp 184 2007-04-19 21:54:49Z ehuelsmann $
;;;; $URL: file:///project/cl-irc/svn/tags/0.9.2/test/test-protocol.lisp $

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