1 USING: kernel tools.test accessors arrays
2 irc.messages irc.messages.private ;
3 EXCLUDE: sequences => join ;
7 { "someuser" } [ "someuser!n=user@some.where" parse-name ] unit-test
10 { line ":someuser!n=user@some.where PRIVMSG #factortest :hi" }
11 { prefix "someuser!n=user@some.where" }
13 { parameters { "#factortest" } }
15 [ ":someuser!n=user@some.where PRIVMSG #factortest :hi"
16 string>irc-message f >>timestamp ] unit-test
19 { line ":someuser!n=user@some.where PRIVMSG #factortest :hi" }
20 { prefix "someuser!n=user@some.where" }
22 { parameters { "#factortest" } }
24 { name "#factortest" } } }
25 [ ":someuser!n=user@some.where PRIVMSG #factortest :hi"
26 parse-irc-line f >>timestamp ] unit-test
29 { line ":someuser!n=user@some.where JOIN :#factortest" }
30 { prefix "someuser!n=user@some.where" }
33 { trailing "#factortest" } } }
34 [ ":someuser!n=user@some.where JOIN :#factortest"
35 parse-irc-line f >>timestamp ] unit-test
38 { line ":ircserver.net MODE #factortest +ns" }
39 { prefix "ircserver.net" }
41 { parameters { "#factortest" "+ns" } }
42 { name "#factortest" }
44 [ ":ircserver.net MODE #factortest +ns"
45 parse-irc-line f >>timestamp ] unit-test
48 { line ":ircserver.net MODE #factortest +o someuser" }
49 { prefix "ircserver.net" }
51 { parameters { "#factortest" "+o" "someuser" } }
52 { name "#factortest" }
54 { parameter "someuser" } } }
55 [ ":ircserver.net MODE #factortest +o someuser"
56 parse-irc-line f >>timestamp ] unit-test
59 { line ":someuser!n=user@some.where NICK :someuser2" }
60 { prefix "someuser!n=user@some.where" }
63 { trailing "someuser2" } } }
64 [ ":someuser!n=user@some.where NICK :someuser2"
65 parse-irc-line f >>timestamp ] unit-test
68 { line ":ircserver.net 433 * nickname :Nickname is already in use" }
69 { prefix "ircserver.net" }
71 { parameters { "*" "nickname" } }
73 { trailing "Nickname is already in use" } } }
74 [ ":ircserver.net 433 * nickname :Nickname is already in use"
75 parse-irc-line f >>timestamp ] unit-test