extra/irc/messages/messages-tests.factor

   1 USING: kernel tools.test accessors arrays qualified
   2        irc.messages irc.messages.private ;
   3 EXCLUDE: sequences => join ;
   4 IN: irc.messages.tests
   5
   6 ! Parsing tests
   7 irc-message new
   8     ":someuser!n=user@some.where PRIVMSG #factortest :hi" >>line
   9     "someuser!n=user@some.where" >>prefix
  10                        "PRIVMSG" >>command
  11                { "#factortest" } >>parameters
  12                             "hi" >>trailing
  13 1array
  14 [ ":someuser!n=user@some.where PRIVMSG #factortest :hi"
  15   string>irc-message f >>timestamp ] unit-test
  16
  17 privmsg new
  18     ":someuser!n=user@some.where PRIVMSG #factortest :hi" >>line
  19     "someuser!n=user@some.where" >>prefix
  20                        "PRIVMSG" >>command
  21                { "#factortest" } >>parameters
  22                             "hi" >>trailing
  23                    "#factortest" >>name
  24 1array
  25 [ ":someuser!n=user@some.where PRIVMSG #factortest :hi"
  26   parse-irc-line f >>timestamp ] unit-test
  27
  28 join new
  29     ":someuser!n=user@some.where JOIN :#factortest" >>line
  30     "someuser!n=user@some.where" >>prefix
  31                           "JOIN" >>command
  32                              { } >>parameters
  33                    "#factortest" >>trailing
  34 1array
  35 [ ":someuser!n=user@some.where JOIN :#factortest"
  36   parse-irc-line f >>timestamp ] unit-test
  37
  38 mode new
  39     ":ircserver.net MODE #factortest +ns" >>line
  40                           "ircserver.net" >>prefix
  41                                    "MODE" >>command
  42                   { "#factortest" "+ns" } >>parameters
  43                              "#factortest" >>channel
  44                                     "+ns" >>mode
  45 1array
  46 [ ":ircserver.net MODE #factortest +ns"
  47   parse-irc-line f >>timestamp ] unit-test