src/testsuite/channel-test.e

   1 # $Id: channel-test.e,v 1.3 2003/12/27 13:01:12 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         "@* JOIN :#channel"
  20 }
  21 expect {
  22         timeout { exit 1 }
  23         "366"
  24 }
  25
  26 send "topic #channel :Test-Topic\r"
  27 expect {
  28         timeout { exit 1 }
  29         "@* TOPIC #channel :Test-Topic"
  30 }
  31
  32 send "who #channel\r"
  33 expect {
  34         timeout { exit 1 }
  35         "352 nick #channel"
  36 }
  37 expect {
  38         timeout { exit 1 }
  39         "* nick H@ :0 User"
  40 }
  41 expect {
  42         timeout { exit 1 }
  43         "315 nick #channel"
  44 }
  45
  46 send "names #channel\r"
  47 expect {
  48         timeout { exit 1 }
  49         "353 nick = #channel :@nick"
  50 }
  51 expect {
  52         timeout { exit 1 }
  53         "366 nick #channel"
  54 }
  55
  56 send "list\r"
  57 expect {
  58         timeout { exit 1 }
  59         "322 nick #channel 1 :Test-Topic"
  60 }
  61 expect {
  62         timeout { exit 1 }
  63         "323 nick :End of LIST"
  64 }
  65
  66 send "part #channel\r"
  67 expect {
  68         timeout { exit 1 }
  69         "@* PART #channel :nick"
  70 }
  71
  72 send "quit\r"
  73 expect {
  74         timeout { exit 1 }
  75         "Connection closed"
  76 }
  77
  78 # -eof-