1 4d46eac7 2002-09-09 alex # $Id: channel-test.e,v 1.2 2002/09/09 21:26:00 alex Exp $
 2 c4d78a34 2002-09-09 alex 
 3 c4d78a34 2002-09-09 alex spawn telnet localhost 6789
 4 c4d78a34 2002-09-09 alex expect {
 5 c4d78a34 2002-09-09 alex 	timeout { exit 1 }
 6 c4d78a34 2002-09-09 alex 	"Connected"
 7 c4d78a34 2002-09-09 alex }
 8 c4d78a34 2002-09-09 alex 
 9 c4d78a34 2002-09-09 alex send "nick nick\r"
10 c4d78a34 2002-09-09 alex send "user user . . :User\r"
11 c4d78a34 2002-09-09 alex expect {
12 c4d78a34 2002-09-09 alex 	timeout { exit 1 }
13 c4d78a34 2002-09-09 alex 	"376"
14 c4d78a34 2002-09-09 alex }
15 c4d78a34 2002-09-09 alex 
16 c4d78a34 2002-09-09 alex send "join #channel\r"
17 c4d78a34 2002-09-09 alex expect {
18 c4d78a34 2002-09-09 alex 	timeout { exit 1 }
19 c4d78a34 2002-09-09 alex 	":nick!~user@* JOIN :#channel"
20 c4d78a34 2002-09-09 alex }
21 c4d78a34 2002-09-09 alex expect {
22 c4d78a34 2002-09-09 alex 	timeout { exit 1 }
23 c4d78a34 2002-09-09 alex 	"366"
24 c4d78a34 2002-09-09 alex }
25 c4d78a34 2002-09-09 alex 
26 4d46eac7 2002-09-09 alex send "topic #channel :Test-Topic\r"
27 4d46eac7 2002-09-09 alex expect {
28 4d46eac7 2002-09-09 alex 	timeout { exit 1 }
29 4d46eac7 2002-09-09 alex 	":nick!~user@* TOPIC #channel :Test-Topic"
30 4d46eac7 2002-09-09 alex }
31 4d46eac7 2002-09-09 alex 
32 4d46eac7 2002-09-09 alex send "who #channel\r"
33 4d46eac7 2002-09-09 alex expect {
34 4d46eac7 2002-09-09 alex 	timeout { exit 1 }
35 4d46eac7 2002-09-09 alex 	"352 nick #channel ~user * nick H@ :0 User"
36 4d46eac7 2002-09-09 alex }
37 4d46eac7 2002-09-09 alex expect {
38 4d46eac7 2002-09-09 alex 	timeout { exit 1 }
39 4d46eac7 2002-09-09 alex 	"315 nick #channel"
40 4d46eac7 2002-09-09 alex }
41 4d46eac7 2002-09-09 alex 
42 4d46eac7 2002-09-09 alex send "names #channel\r"
43 4d46eac7 2002-09-09 alex expect {
44 4d46eac7 2002-09-09 alex 	timeout { exit 1 }
45 4d46eac7 2002-09-09 alex 	"353 nick = #channel :@nick"
46 4d46eac7 2002-09-09 alex }
47 4d46eac7 2002-09-09 alex expect {
48 4d46eac7 2002-09-09 alex 	timeout { exit 1 }
49 4d46eac7 2002-09-09 alex 	"366 nick #channel"
50 4d46eac7 2002-09-09 alex }
51 4d46eac7 2002-09-09 alex 
52 4d46eac7 2002-09-09 alex send "list\r"
53 4d46eac7 2002-09-09 alex expect {
54 4d46eac7 2002-09-09 alex 	timeout { exit 1 }
55 4d46eac7 2002-09-09 alex 	"322 nick #channel 1 :Test-Topic"
56 4d46eac7 2002-09-09 alex }
57 4d46eac7 2002-09-09 alex expect {
58 4d46eac7 2002-09-09 alex 	timeout { exit 1 }
59 4d46eac7 2002-09-09 alex 	"323 nick :End of LIST"
60 4d46eac7 2002-09-09 alex }
61 4d46eac7 2002-09-09 alex 
62 c4d78a34 2002-09-09 alex send "part #channel\r"
63 c4d78a34 2002-09-09 alex expect {
64 c4d78a34 2002-09-09 alex 	timeout { exit 1 }
65 c4d78a34 2002-09-09 alex 	":nick!~user@* PART #channel :nick"
66 c4d78a34 2002-09-09 alex }
67 c4d78a34 2002-09-09 alex 
68 c4d78a34 2002-09-09 alex send "quit\r"
69 c4d78a34 2002-09-09 alex expect {
70 c4d78a34 2002-09-09 alex 	timeout { exit 1 }
71 c4d78a34 2002-09-09 alex 	"Connection closed"
72 c4d78a34 2002-09-09 alex }
73 c4d78a34 2002-09-09 alex 
74 c4d78a34 2002-09-09 alex # -eof-