[cl-irc-cvs] CVS cl-irc/test

[ehuelsmann]

Update of /project/cl-irc/cvsroot/cl-irc/test
In directory common-lisp:/tmp/cvs-serv16147/test

Modified Files:
	test-parse-message.lisp 
Log Message:
Start eliminating trailing-argument to be RFC compliant.

Step 2 should follow in about half a year,
removing trailing-argument all together.

* event.lisp:
  - Use destructuring-bind to decompose protocol messages (more often).
  - Fix relative arguments-use (i.e. (last arugments)) which isn't applicable
    anymore. [Only the case for irc-rpl_namreply-message.]
  - Fix PONG message - previously using trailing-argument - to pass all
    arguments to PING back into PONG (as per the RFC).


--- /project/cl-irc/cvsroot/cl-irc/test/test-parse-message.lisp	2004/01/05 14:18:07	1.2
+++ /project/cl-irc/cvsroot/cl-irc/test/test-parse-message.lisp	2006/02/15 19:03:53	1.3
@@ -1,4 +1,4 @@
-;;;; $Id: test-parse-message.lisp,v 1.2 2004/01/05 14:18:07 eenge Exp $
+;;;; $Id: test-parse-message.lisp,v 1.3 2006/02/15 19:03:53 ehuelsmann Exp $
 ;;;; $Source: /project/cl-irc/cvsroot/cl-irc/test/test-parse-message.lisp,v $
 
 ;;;; See the LICENSE file for licensing information.
@@ -10,6 +10,8 @@
 (defvar *msg3* (format nil "NOTICE AUTH :*** Your forward and reverse DNS don't match~A" #\Return))
 (defvar *msg4* (format nil ":kire_!~~eenge at adsl-156-35-240.asm.bellsouth.net MODE #lisppaste +k key~A" #\Return))
 (defvar *msg5* (format nil ":kire_!~~eenge at adsl-156-35-240.asm.bellsouth.net MODE #lisppaste +bbb *!*@somewhere.com *!*@somewhereles.com *!*@youdontwannaknow.org~A" #\Return))
+(defvar *msg6* (format nil ":kire!~~eenge at 216.248.178.227 PRIVMSG cl-irc heyhey!~A" #\Return))
+
 
 (deftest find-reply-name.1 (irc:find-reply-name 1) :rpl_welcome)
 (deftest find-reply-name.2
@@ -59,4 +61,8 @@
 
 (deftest parse-raw-message.1
     (irc::parse-raw-message cl-irc-test::*msg1*)
-  "kire" "~eenge" "216.248.178.227" "PRIVMSG" ("cl-irc") "heyhey!")
+  "kire" "~eenge" "216.248.178.227" "PRIVMSG" ("cl-irc" "heyhey!"))
+
+(deftest no-trailing.1
+  (irc::parse-raw-message *msg6*)
+  "kire" "~eenge" "216.248.178.227" "PRIVMSG" ("cl-irc" "heyhey!"))