1#!/bin/bash 2# \ 3exec tclsh "$0" "$@" 4 5source tests/commands/common.tcl 6 7proc main {} { 8 global server client serverout clientout 9 10 # set defaults 11 server "sv_globalspectatorchat 1" 12 server "map 1" 13 client "print_stdout 1" 14 client "cl_name Player" 15 16 wait 17 18 # change map on server 19 clear 20 server "map 1" 21 expect $serverout {--- MAP01: entryway ---} 22 expect $clientout {} 23 expect $clientout {} 24 expect $clientout {MAP01: entryway} 0 25 26 # change map on server 27 clear 28 server "map 02" 29 expect $serverout {--- MAP02: underhalls ---} 30 expect $clientout {} 31 expect $clientout {} 32 expect $clientout {MAP02: underhalls} 0 33 34 # change map on server 35 clear 36 server "map map03" 37 expect $serverout {--- map03: the gantlet ---} 38 expect $clientout {} 39 expect $clientout {} 40 expect $clientout {map03: the gantlet} 0 41 42 # change map on server 43 clear 44 server "map MAP04" 45 expect $serverout {--- MAP04: the focus ---} 46 expect $clientout {} 47 expect $clientout {} 48 expect $clientout {MAP04: the focus} 0 49 50 # change map on client 51 clear 52 client "map MAP05" 53 expect $serverout {Player disconnected. (SPECTATOR, 0 FRAGS, 0 DEATHS)} 54 expect $clientout {} 55 expect $clientout {} 56 expect $clientout {MAP05: the waste tunnels} 0 57 58 # change map on client 59 clear 60 client "map MAP06" 61 expect $clientout {} 62 expect $clientout {} 63 expect $clientout {MAP06: the crusher} 0 64} 65 66start 67 68set error [catch { main }] 69 70if { $error } { 71 puts "FAIL Test crashed!" 72} 73 74end 75