Changeset 155 for trunk/test

Timestamp:

05/15/06 22:54:48 (19 years ago)

Author:

Erik Huelsmann

Message:

Fix (amongst others) the MODE command where there is no terminating #\Return.

File:

• trunk/test/test-parse-message.lisp (modified) (2 diffs)

trunk/test/test-parse-message.lisp ¶

@@ -12 +12 @@
 (defvar *msg5* (format nil ":kire_!~~eenge@adsl-156-35-240.asm.bellsouth.net MODE #lisppaste +bbb *!*@somewhere.com *!*@somewhereles.com *!*@youdontwannaknow.org~A" #\Return))
 (defvar *msg6* (format nil ":kire!~~eenge@216.248.178.227 PRIVMSG cl-irc heyhey!~A" #\Return))
+(defvar *msg7* (format nil ":ChanServ!ChanServ@services. MODE #lisppaste +o eh "))
 
 
@@ -67 +68 @@
   (irc::parse-raw-message *msg6*)
   "kire" "~eenge" "216.248.178.227" "PRIVMSG" ("cl-irc" "heyhey!"))
+
+(deftest mode.1
+  (irc::parse-raw-message *msg7*)
+  "ChanServ" "ChanServ" "services." "MODE" ("#lisppaste" "+o" "eh"))