src/testsuite/channel-test.e

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