Tests for the parser.

Raynes · Nov 22, 2011 · af43da1 · af43da1
1 parent 901cc66
commit af43da1
Showing 1 changed file with 19 additions and 0 deletions.
diff --git a/test/irclj/parser_test.clj b/test/irclj/parser_test.clj
@@ -0,0 +1,19 @@
+(ns irclj.parser-test
+  (:use irclj.parser
+        clojure.test))
+
+(deftest parser-test
+  (is (= (parse-message ":amalloy!~amalloy@li231-96.members.linode.com PRIVMSG #4clojure")
+         {:command "PRIVMSG",
+          :params ["#4clojure"],
+          :raw ":amalloy!~amalloy@li231-96.members.linode.com PRIVMSG #4clojure",
+          :host "li231-96.members.linode.com",
+          :user "~amalloy",
+          :nick "amalloy"}))
+  (is (= (parse-message ":amalloy!~amalloy@li231-96.members.linode.com PRIVMSG #4clojure :ckirkendall: would you mind using amalloy on irc, rather than alan? it's nice to get notifications from my irc client")
+         {:command "PRIVMSG",
+          :params ["#4clojure" "ckirkendall: would you mind using amalloy on irc, rather than alan? it's nice to get notifications from my irc client"],
+          :raw ":amalloy!~amalloy@li231-96.members.linode.com PRIVMSG #4clojure :ckirkendall: would you mind using amalloy on irc, rather than alan? it's nice to get notifications from my irc client",
+          :host "li231-96.members.linode.com",
+          :user "~amalloy",
+          :nick "amalloy"})))