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