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