src/testsuite/message-test.e

   1 # $Id: mode-test.e,v 1.7 2008/02/16 11:27:49 fw Exp $
   2
   3 spawn telnet localhost 6789
   4 expect {
   5         timeout { exit 1 }
   6         "Connected"
   7 }
   8
   9 send "nick nick\r"
  10 send "user user . . :User\r"
  11 expect {
  12         timeout { exit 1 }
  13         "376"
  14 }
  15
  16 send "privmsg nick :test\r"
  17 expect {
  18         timeout { exit 1 }
  19         "@* PRIVMSG nick :test"
  20 }
  21
  22 send "privmsg nick\r"
  23 expect {
  24         timeout { exit 1 }
  25         "412"
  26 }
  27
  28 send "privmsg\r"
  29 expect {
  30         timeout { exit 1 }
  31         "411"
  32 }
  33
  34 send "privmsg nick,nick :test\r"
  35 expect {
  36         timeout { exit 1 }
  37         "@* PRIVMSG nick :test\r*@* PRIVMSG nick :test"
  38 }
  39
  40 send "privmsg nick,#testChannel,nick :test\r"
  41 expect {
  42         timeout { exit 1 }
  43         "@* PRIVMSG nick :test\r*401*@* PRIVMSG nick :test"
  44 }
  45
  46 send "JOIN #testChannel\r"
  47
  48 send "privmsg doesnotexist :test\r"
  49 expect {
  50         timeout { exit 1 }
  51         "401"
  52 }
  53
  54 send "away :away\r"
  55 expect {
  56         timeout { exit 1 }
  57         "306"
  58 }
  59
  60 send "privmsg nick :test\r"
  61 expect {
  62         timeout { exit 1 }
  63         "301"
  64 }
  65
  66 send "away\r"
  67 expect {
  68         timeout { exit 1 }
  69         "305"
  70 }
  71
  72 send "privmsg \$ngircd.test.server :test\r"
  73 expect {
  74         timeout { exit 1 }
  75         "481"
  76 }
  77
  78 send "privmsg #*.de :test\r"
  79 expect {
  80         timeout { exit 1 }
  81         "481"
  82 }
  83
  84 send "oper TestOp 123\r"
  85
  86 send "privmsg \$ngircd.test.server :test\r"
  87 expect {
  88         timeout { exit 1 }
  89         "@* PRIVMSG nick :test"
  90 }
  91
  92 send "privmsg \$*.test*.server :test\r"
  93 expect {
  94         timeout { exit 1 }
  95         "@* PRIVMSG nick :test"
  96 }
  97
  98 send "privmsg \$noDotServer :test\r"
  99 expect {
 100         timeout { exit 1 }
 101         "401"
 102 }
 103
 104 #cannot test host mask since localhost has no '.' as RFC requires
 105
 106 send "quit\r"
 107 expect {
 108         timeout { exit 1 }
 109         "Connection closed"
 110 }
 111
 112 # -eof-