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@adsl-156-35-240.asm.bellsouth.net MODE #lisppaste +k key~A" #\Return)) (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)) +

(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!"))