src/testsuite/channel-test.e

   1 # $Id: channel-test.e,v 1.1 2002/09/09 10:16:24 alex 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 "join #channel\r"
  17 expect {
  18         timeout { exit 1 }
  19         ":nick!~user@* JOIN :#channel"
  20 }
  21 expect {
  22         timeout { exit 1 }
  23         "366"
  24 }
  25
  26 send "part #channel\r"
  27 expect {
  28         timeout { exit 1 }
  29         ":nick!~user@* PART #channel :nick"
  30 }
  31
  32 send "quit\r"
  33 expect {
  34         timeout { exit 1 }
  35         "Connection closed"
  36 }
  37
  38 # -eof-