72 lines
2.3 KiB
Factor
72 lines
2.3 KiB
Factor
! Copyright (C) 2009 Bruno Deferrari
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: kernel tools.test accessors arrays
|
|
irc.messages.parser irc.messages ;
|
|
EXCLUDE: sequences => join ;
|
|
IN: irc.messages.tests
|
|
|
|
|
|
! { "someuser" } [ "someuser!n=user@some.where" parse-name ] unit-test
|
|
|
|
{ T{ privmsg
|
|
{ line ":someuser!n=user@some.where PRIVMSG #factortest :hi" }
|
|
{ prefix "someuser!n=user@some.where" }
|
|
{ command "PRIVMSG" }
|
|
{ parameters { "#factortest" } }
|
|
{ trailing "hi" }
|
|
{ target "#factortest" }
|
|
{ text "hi" }
|
|
{ sender "someuser" } } }
|
|
[ ":someuser!n=user@some.where PRIVMSG #factortest :hi"
|
|
string>irc-message f >>timestamp ] unit-test
|
|
|
|
{ T{ join
|
|
{ line ":someuser!n=user@some.where JOIN :#factortest" }
|
|
{ prefix "someuser!n=user@some.where" }
|
|
{ command "JOIN" }
|
|
{ parameters { } }
|
|
{ trailing "#factortest" }
|
|
{ sender "someuser" } } }
|
|
[ ":someuser!n=user@some.where JOIN :#factortest"
|
|
string>irc-message f >>timestamp ] unit-test
|
|
|
|
{ T{ mode
|
|
{ line ":ircserver.net MODE #factortest +ns" }
|
|
{ prefix "ircserver.net" }
|
|
{ command "MODE" }
|
|
{ parameters { "#factortest" "+ns" } }
|
|
{ name "#factortest" }
|
|
{ mode "+ns" } } }
|
|
[ ":ircserver.net MODE #factortest +ns"
|
|
string>irc-message f >>timestamp ] unit-test
|
|
|
|
{ T{ mode
|
|
{ line ":ircserver.net MODE #factortest +o someuser" }
|
|
{ prefix "ircserver.net" }
|
|
{ command "MODE" }
|
|
{ parameters { "#factortest" "+o" "someuser" } }
|
|
{ name "#factortest" }
|
|
{ mode "+o" }
|
|
{ parameter "someuser" } } }
|
|
[ ":ircserver.net MODE #factortest +o someuser"
|
|
string>irc-message f >>timestamp ] unit-test
|
|
|
|
{ T{ nick
|
|
{ line ":someuser!n=user@some.where NICK :someuser2" }
|
|
{ prefix "someuser!n=user@some.where" }
|
|
{ command "NICK" }
|
|
{ parameters { } }
|
|
{ trailing "someuser2" }
|
|
{ sender "someuser" } } }
|
|
[ ":someuser!n=user@some.where NICK :someuser2"
|
|
string>irc-message f >>timestamp ] unit-test
|
|
|
|
{ T{ rpl-nickname-in-use
|
|
{ line ":ircserver.net 433 * nickname :Nickname is already in use" }
|
|
{ prefix "ircserver.net" }
|
|
{ command "433" }
|
|
{ parameters { "*" "nickname" } }
|
|
{ name "nickname" }
|
|
{ trailing "Nickname is already in use" } } }
|
|
[ ":ircserver.net 433 * nickname :Nickname is already in use"
|
|
string>irc-message f >>timestamp ] unit-test |