1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
|
test ChatroomSetup:
# Local chatrooms
spawn as p1
with p1:
send "create-identity Device1 Owner1"
send "chatroom-create first"
send "chatroom-create second"
send "chatroom-list-local"
expect /chatroom-list-item ([a-z0-9#]+) first sub true/ capture first
expect /chatroom-list-item [a-z0-9#]+ second sub true/
local:
expect /chatroom-list-(.*)/ capture done
guard (done == "done")
expect /chatroom-create-done ([a-z0-9#]+) first.*/ from p1 capture first
expect /chatroom-create-done ([a-z0-9#]+) second.*/ from p1 capture second
# Send chatrooms to new peers
spawn as p2
send "create-identity Device2 Owner2" to p2
spawn as p3
send "create-identity Device3 Owner3" to p3
for p in [ p1, p2, p3 ]:
with p:
send "chatroom-watch-local"
send "start-server"
for p in [ p2, p3 ]:
with p:
expect /chatroom-watched-added [a-z0-9#]+ first sub false/
expect /chatroom-watched-added [a-z0-9#]+ second sub false/
# Subscribe and unsubscribe
with p1:
send "chatroom-unsubscribe $first"
expect /chatroom-watched-updated [a-z0-9#]+ first sub false .*/
send "chatroom-subscribe $first"
expect /chatroom-watched-updated [a-z0-9#]+ first sub true .*/
with p2:
send "chatroom-list-local"
expect /chatroom-list-item ([a-z0-9#]+) first sub false/ capture p2_first
expect /chatroom-list-item ([a-z0-9#]+) second sub false/ capture p2_second
local:
expect /chatroom-list-(.*)/ capture done
guard (done == "done")
send "chatroom-subscribe $p2_first"
send "chatroom-subscribe $p2_second"
expect /chatroom-watched-updated [a-z0-9#]+ first sub true .*/
expect /chatroom-watched-updated [a-z0-9#]+ second sub true .*/
send "chatroom-unsubscribe $p2_first"
send "chatroom-unsubscribe $p2_second"
expect /chatroom-watched-updated [a-z0-9#]+ first sub false .*/
expect /chatroom-watched-updated [a-z0-9#]+ second sub false .*/
# Create and sync additional chatrooms
send "chatroom-create third" to p1
send "chatroom-create fourth" to p2
send "chatroom-create fifth" to p3
expect /chatroom-create-done ([a-z0-9#]+) fourth.*/ from p2 capture fourth
expect /chatroom-create-done ([a-z0-9#]+) fifth.*/ from p3 capture fifth
for p in [ p1, p2, p3 ]:
with p:
expect /chatroom-watched-added [a-z0-9#]+ third sub [a-z]+/
expect /chatroom-watched-added [a-z0-9#]+ fourth sub [a-z]+/
expect /chatroom-watched-added [a-z0-9#]+ fifth sub [a-z]+/
# Update chatroom name
send "chatroom-set-name $first first2" to p1
for p in [ p1, p2, p3 ]:
with p:
expect /chatroom-watched-updated [a-z0-9#]+ first2.*/
send "chatroom-set-name $fourth fourth2" to p2
send "chatroom-set-name $fifth fifth2" to p3
for p in [ p1, p2, p3 ]:
with p:
expect /chatroom-watched-updated [a-z0-9#]+ fourth2.*/
expect /chatroom-watched-updated [a-z0-9#]+ fifth2.*/
test ChatroomMessages:
spawn as p1
spawn as p2
send "create-identity Device1 Owner1" to p1
send "create-identity Device2 Owner2" to p2
for p in [ p1, p2 ]:
with p:
send "chatroom-watch-local"
send "start-server"
send "chatroom-create first_room" to p1
expect /chatroom-create-done ([a-z0-9#]+) first_room.*/ from p1 capture room1_p1
expect /chatroom-watched-added [a-z0-9#]+ first_room sub true/ from p1
expect /chatroom-watched-added ([a-z0-9#]+) first_room sub false/ from p2 capture room1_p2
send "chatroom-message-send $room1_p1 message1" to p1
expect /chatroom-message-new $room1_p1 room first_room from Owner1 text message1/ from p1
send "chatroom-message-send $room1_p1 message2" to p1
local:
expect /chatroom-message-new $room1_p1 room first_room from Owner1 text (.*)/ from p1 capture msg
guard (msg == "message2")
# Subscribe to chatroom
send "chatroom-subscribe $room1_p2" to p2
expect /chatroom-watched-updated [a-z0-9#]+ first_room sub true .*/ from p2
with p2:
expect /chatroom-message-new $room1_p2 room first_room from Owner1 text (.*)/ capture msg
guard (msg == "message1")
with p2:
expect /chatroom-message-new $room1_p2 room first_room from Owner1 text (.*)/ capture msg
guard (msg == "message2")
send "chatroom-message-send $room1_p2 message3" to p2
for p in [ p1, p2 ]:
with p:
expect /chatroom-message-new [a-z0-9#]+ room first_room from Owner2 text message3/
send "chatroom-message-send $room1_p1 message4" to p1
for p in [ p1, p2 ]:
with p:
expect /chatroom-message-new [a-z0-9#]+ room first_room from Owner1 text message4/
# Multiple rooms
send "chatroom-create second_room" to p1
expect /chatroom-create-done ([a-z0-9#]+) second_room.*/ from p1 capture room2_p1
send "chatroom-create third_room" to p2
expect /chatroom-create-done ([a-z0-9#]+) third_room.*/ from p2 capture room3_p2
expect /chatroom-watched-added $room2_p1 second_room sub true/ from p1
expect /chatroom-watched-added $room3_p2 third_room sub true/ from p2
expect /chatroom-watched-added ([a-z0-9#]+) second_room sub false/ from p2 capture room2_p2
expect /chatroom-watched-added ([a-z0-9#]+) third_room sub false/ from p1 capture room3_p1
spawn as p3
send "create-identity Device3 Owner3" to p3
send "chatroom-watch-local" to p3
send "start-server" to p3
expect /chatroom-watched-added ([a-z0-9#]+) first_room sub false/ from p3 capture room1_p3
expect /chatroom-watched-added ([a-z0-9#]+) second_room sub false/ from p3 capture room2_p3
expect /chatroom-watched-added ([a-z0-9#]+) third_room sub false/ from p3 capture room3_p3
with p3:
for room in [ room1_p3, room2_p3, room3_p3 ]:
send "chatroom-subscribe $room"
expect /chatroom-watched-updated $room [a-z_]+ sub true .*/
for i in [1..4]:
expect /chatroom-message-new $room1_p3 room first_room from Owner. text (.*)/ capture message
guard (message == "message$i")
with p2:
send "chatroom-message-send $room2_p2 msg_r2_1"
send "chatroom-message-send $room2_p2 msg_r2_2"
send "chatroom-message-send $room2_p2 msg_r2_3"
expect /chatroom-message-new $room2_p2 room second_room from Owner2 text msg_r2_1/
expect /chatroom-message-new $room2_p2 room second_room from Owner2 text msg_r2_2/
expect /chatroom-message-new $room2_p2 room second_room from Owner2 text msg_r2_3/
send "chatroom-message-send $room3_p2 msg_r3_1"
send "chatroom-message-send $room3_p2 msg_r3_2"
send "chatroom-message-send $room3_p2 msg_r3_3"
expect /chatroom-message-new $room3_p2 room third_room from Owner2 text msg_r3_1/
expect /chatroom-message-new $room3_p2 room third_room from Owner2 text msg_r3_2/
expect /chatroom-message-new $room3_p2 room third_room from Owner2 text msg_r3_3/
with p1:
local:
expect /chatroom-message-new [a-z0-9#]+ room ([a-z_]+) from Owner2 text ([a-z0-9_]+)/ capture room, message
guard (room == "second_room")
guard (message == "msg_r2_1")
local:
expect /chatroom-message-new [a-z0-9#]+ room ([a-z_]+) from Owner2 text ([a-z0-9_]+)/ capture room, message
guard (room == "second_room")
guard (message == "msg_r2_2")
local:
expect /chatroom-message-new [a-z0-9#]+ room ([a-z_]+) from Owner2 text ([a-z0-9_]+)/ capture room, message
guard (room == "second_room")
guard (message == "msg_r2_3")
with p3:
expect /chatroom-message-new $room2_p3 room second_room from Owner2 text msg_r2_1/
expect /chatroom-message-new $room2_p3 room second_room from Owner2 text msg_r2_2/
expect /chatroom-message-new $room2_p3 room second_room from Owner2 text msg_r2_3/
expect /chatroom-message-new $room3_p3 room third_room from Owner2 text msg_r3_1/
expect /chatroom-message-new $room3_p3 room third_room from Owner2 text msg_r3_2/
expect /chatroom-message-new $room3_p3 room third_room from Owner2 text msg_r3_3/
# Unsubscribe
send "chatroom-unsubscribe $room1_p1" to p1
expect /chatroom-watched-updated $room1_p1 [a-z_]+ sub false .*/ from p1
send "chatroom-unsubscribe $room1_p3" to p3
expect /chatroom-watched-updated $room1_p3 [a-z_]+ sub false .*/ from p3
send "chatroom-unsubscribe $room2_p3" to p3
expect /chatroom-watched-updated $room2_p3 [a-z_]+ sub false .*/ from p3
with p2:
send "chatroom-message-send $room1_p2 msg_r1_4"
expect /chatroom-message-new $room1_p2 room first_room from Owner2 text msg_r1_4/
send "chatroom-message-send $room2_p2 msg_r2_4"
expect /chatroom-message-new $room2_p2 room second_room from Owner2 text msg_r2_4/
send "chatroom-message-send $room3_p2 msg_r3_4"
expect /chatroom-message-new $room3_p2 room third_room from Owner2 text msg_r3_4/
with p1:
local:
expect /chatroom-message-new [a-z0-9#]+ room ([a-z_]+) from Owner2 text ([a-z0-9_]+)/ capture room, message
guard (room == "second_room")
guard (message == "msg_r2_4")
with p3:
local:
expect /chatroom-message-new [a-z0-9#]+ room ([a-z_]+) from Owner2 text ([a-z0-9_]+)/ capture room, message
guard (room == "third_room")
guard (message == "msg_r3_4")
|