diff options
Diffstat (limited to 'chatroom.test')
| -rw-r--r-- | chatroom.test | 428 |
1 files changed, 0 insertions, 428 deletions
diff --git a/chatroom.test b/chatroom.test deleted file mode 100644 index 93de1ff..0000000 --- a/chatroom.test +++ /dev/null @@ -1,428 +0,0 @@ -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") - - -test ChatroomSubscribedBeforeStart: - 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 - - with p2: - send "chatroom-subscribe $room1_p2" - expect /chatroom-watched-updated [a-z0-9#]+ first_room sub true .*/ - - for p in [p1, p2]: - with p: - send "stop-server" - for p in [p1, p2]: - with p: - expect /stop-server-done/ - for p in [p1, p2]: - with p: - send "start-server" - - send "chatroom-message-send $room1_p1 message1" to p1 - expect /chatroom-message-new $room1_p1 room first_room from Owner1 text message1/ from p1 - expect /chatroom-message-new $room1_p2 room first_room from Owner1 text message1/ from p2 - - send "chatroom-message-send $room1_p2 message2" to p2 - expect /chatroom-message-new $room1_p1 room first_room from Owner2 text message2/ from p1 - expect /chatroom-message-new $room1_p2 room first_room from Owner2 text message2/ from p2 - - -test ParallelThreads: - 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 - - with p2: - send "chatroom-subscribe $room1_p2" - expect /chatroom-watched-updated [a-z0-9#]+ first_room sub true .*/ - - for p in [p1, p2]: - with p: - send "stop-server" - for p in [p1, p2]: - with p: - expect /stop-server-done/ - - send "chatroom-message-send $room1_p1 message1A" to p1 - send "chatroom-message-send $room1_p1 message1B" to p1 - send "chatroom-message-send $room1_p2 message2A" to p2 - send "chatroom-message-send $room1_p2 message2B" to p2 - with p1: - expect /chatroom-message-new $room1_p1 room first_room from Owner. text message(..)/ capture msg - guard (msg == "1A") - with p1: - expect /chatroom-message-new $room1_p1 room first_room from Owner. text message(..)/ capture msg - guard (msg == "1B") - with p2: - expect /chatroom-message-new $room1_p2 room first_room from Owner. text message(..)/ capture msg - guard (msg == "2A") - with p2: - expect /chatroom-message-new $room1_p2 room first_room from Owner. text message(..)/ capture msg - guard (msg == "2B") - - for p in [p1, p2]: - with p: - send "start-server" - - with p1: - expect /chatroom-message-new $room1_p1 room first_room from Owner. text message(..)/ capture msg - guard (msg == "2A") - with p1: - expect /chatroom-message-new $room1_p1 room first_room from Owner. text message(..)/ capture msg - guard (msg == "2B") - with p2: - expect /chatroom-message-new $room1_p2 room first_room from Owner. text message(..)/ capture msg - guard (msg == "1A") - with p2: - expect /chatroom-message-new $room1_p2 room first_room from Owner. text message(..)/ capture msg - guard (msg == "1B") - - -test ChatroomMembers: - spawn as p1 - spawn as p2 - spawn as p3 - - send "create-identity Device1 Owner1" to p1 - send "create-identity Device2 Owner2" to p2 - send "create-identity Device3 Owner3" to p3 - - for p in [ p1, p2, p3 ]: - 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 $room1_p1 first_room sub true/ from p1 - expect /chatroom-watched-added ([a-z0-9#]+) first_room sub false/ from p2 capture room1_p2 - expect /chatroom-watched-added ([a-z0-9#]+) first_room sub false/ from p3 capture room1_p3 - - local: - send "chatroom-members $room1_p1" to p1 - expect /chatroom-members-([a-z]+)/ from p1 capture done - guard (done == "done") - local: - send "chatroom-members $room1_p2" to p2 - expect /chatroom-members-([a-z]+)/ from p2 capture done - guard (done == "done") - - send "chatroom-message-send $room1_p1 message1" to p1 - send "chatroom-message-send $room1_p1 message2" to p1 - send "chatroom-join $room1_p2" to p2 - send "chatroom-message-send $room1_p2 message3" to p2 - send "chatroom-join $room1_p3" to p3 - - with p1: - expect /chatroom-message-new $room1_p1 room first_room from Owner1 text message2/ - expect /chatroom-message-new $room1_p1 room first_room from Owner2 text message3/ - expect /chatroom-message-new $room1_p1 room first_room from Owner3/ - with p2: - expect /chatroom-message-new $room1_p2 room first_room from Owner1 text message2/ - expect /chatroom-message-new $room1_p2 room first_room from Owner2 text message3/ - expect /chatroom-message-new $room1_p2 room first_room from Owner3/ - with p3: - expect /chatroom-message-new $room1_p3 room first_room from Owner1 text message2/ - expect /chatroom-message-new $room1_p3 room first_room from Owner2 text message3/ - expect /chatroom-message-new $room1_p3 room first_room from Owner3/ - - local: - send "chatroom-members $room1_p1" to p1 - expect /chatroom-members-item Owner1/ from p1 - expect /chatroom-members-item Owner2/ from p1 - expect /chatroom-members-item Owner3/ from p1 - expect /chatroom-members-([a-z]+)/ from p1 capture done - guard (done == "done") - local: - send "chatroom-members $room1_p2" to p2 - expect /chatroom-members-item Owner1/ from p2 - expect /chatroom-members-item Owner2/ from p2 - expect /chatroom-members-item Owner3/ from p2 - expect /chatroom-members-([a-z]+)/ from p2 capture done - guard (done == "done") - - send "chatroom-leave $room1_p1" to p1 - send "chatroom-leave $room1_p3" to p3 - - for p in [ p1, p2, p3 ]: - with p: - expect /chatroom-message-new [a-z0-9#]+ room first_room from Owner1 leave/ - expect /chatroom-message-new [a-z0-9#]+ room first_room from Owner3 leave/ - - send "chatroom-members $room1_p1" to p1 - send "chatroom-members $room1_p2" to p2 - send "chatroom-members $room1_p3" to p3 - for p in [ p1, p2, p3 ]: - with p: - expect /chatroom-members-item Owner2/ - expect /chatroom-members-([a-z]+)/ capture done - guard (done == "done") |