extra/irc/messages/messages-tests.factor

   1 USING: kernel tools.test accessors arrays
   2        irc.messages irc.messages.private ;
   3 EXCLUDE: sequences => join ;
   4 IN: irc.messages.tests
   5
   6
   7 { "someuser" } [ "someuser!n=user@some.where" parse-name ] unit-test
   8
   9 { T{ irc-message
  10      { line ":someuser!n=user@some.where PRIVMSG #factortest :hi" }
  11      { prefix "someuser!n=user@some.where" }
  12      { command  "PRIVMSG" }
  13      { parameters { "#factortest" } }
  14      { trailing "hi" } } }
  15 [ ":someuser!n=user@some.where PRIVMSG #factortest :hi"
  16   string>irc-message f >>timestamp ] unit-test
  17
  18 { T{ privmsg
  19      { line ":someuser!n=user@some.where PRIVMSG #factortest :hi" }
  20      { prefix  "someuser!n=user@some.where" }
  21      { command "PRIVMSG" }
  22      { parameters { "#factortest" } }
  23      { trailing "hi" }
  24      { name "#factortest" } } }
  25 [ ":someuser!n=user@some.where PRIVMSG #factortest :hi"
  26   parse-irc-line f >>timestamp ] unit-test
  27
  28 { T{ join
  29      { line ":someuser!n=user@some.where JOIN :#factortest" }
  30      { prefix "someuser!n=user@some.where" }
  31      { command "JOIN" }
  32      { parameters { } }
  33      { trailing "#factortest" } } }
  34 [ ":someuser!n=user@some.where JOIN :#factortest"
  35   parse-irc-line f >>timestamp ] unit-test
  36
  37 { T{ mode
  38      { line ":ircserver.net MODE #factortest +ns" }
  39      { prefix "ircserver.net" }
  40      { command "MODE" }
  41      { parameters { "#factortest" "+ns" } }
  42      { name "#factortest" }
  43      { mode "+ns" } } }
  44 [ ":ircserver.net MODE #factortest +ns"
  45   parse-irc-line f >>timestamp ] unit-test
  46
  47 { T{ mode
  48      { line ":ircserver.net MODE #factortest +o someuser" }
  49      { prefix "ircserver.net" }
  50      { command "MODE" }
  51      { parameters { "#factortest" "+o" "someuser" } }
  52      { name "#factortest" }
  53      { mode "+o" }
  54      { parameter "someuser" } } }
  55 [ ":ircserver.net MODE #factortest +o someuser"
  56   parse-irc-line f >>timestamp ] unit-test
  57
  58 { T{ nick
  59      { line ":someuser!n=user@some.where NICK :someuser2" }
  60      { prefix "someuser!n=user@some.where" }
  61      { command "NICK" }
  62      { parameters  { } }
  63      { trailing "someuser2" } } }
  64 [ ":someuser!n=user@some.where NICK :someuser2"
  65   parse-irc-line f >>timestamp ] unit-test
  66
  67 { T{ nick-in-use
  68      { line ":ircserver.net 433 * nickname :Nickname is already in use" }
  69      { prefix "ircserver.net" }
  70      { command "433" }
  71      { parameters { "*" "nickname" } }
  72      { name "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