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
   7 { "someuser" } [ "someuser!n=user@some.where" parse-name ] unit-test
   8
   9 irc-message new
  10     ":someuser!n=user@some.where PRIVMSG #factortest :hi" >>line
  11     "someuser!n=user@some.where" >>prefix
  12                        "PRIVMSG" >>command
  13                { "#factortest" } >>parameters
  14                             "hi" >>trailing
  15 1array
  16 [ ":someuser!n=user@some.where PRIVMSG #factortest :hi"
  17   string>irc-message f >>timestamp ] unit-test
  18
  19 privmsg new
  20     ":someuser!n=user@some.where PRIVMSG #factortest :hi" >>line
  21     "someuser!n=user@some.where" >>prefix
  22                        "PRIVMSG" >>command
  23                { "#factortest" } >>parameters
  24                             "hi" >>trailing
  25                    "#factortest" >>name
  26 1array
  27 [ ":someuser!n=user@some.where PRIVMSG #factortest :hi"
  28   parse-irc-line f >>timestamp ] unit-test
  29
  30 join new
  31     ":someuser!n=user@some.where JOIN :#factortest" >>line
  32     "someuser!n=user@some.where" >>prefix
  33                           "JOIN" >>command
  34                              { } >>parameters
  35                    "#factortest" >>trailing
  36 1array
  37 [ ":someuser!n=user@some.where JOIN :#factortest"
  38   parse-irc-line f >>timestamp ] unit-test
  39
  40 mode new
  41     ":ircserver.net MODE #factortest +ns" >>line
  42                           "ircserver.net" >>prefix
  43                                    "MODE" >>command
  44                   { "#factortest" "+ns" } >>parameters
  45                             "#factortest" >>channel
  46                                     "+ns" >>mode
  47 1array
  48 [ ":ircserver.net MODE #factortest +ns"
  49   parse-irc-line f >>timestamp ] unit-test
  50
  51 nick new
  52     ":someuser!n=user@some.where NICK :someuser2" >>line
  53                      "someuser!n=user@some.where" >>prefix
  54                                            "NICK" >>command
  55                                               { } >>parameters
  56                                       "someuser2" >>trailing
  57 1array
  58 [ ":someuser!n=user@some.where NICK :someuser2"
  59   parse-irc-line f >>timestamp ] unit-test