1#!/bin/bash
2# \
3exec tclsh "$0" "$@"
4
5source tests/commands/common.tcl
6
7proc main {} {
8 global client clientout
9
10 wait
11
12 # run av.wad demo1
13 client "wad doom2.wad av.wad"
14 wait 4
15 clear
16 client "playdemo demo1"
17 wait 10
18
19 gets $clientout
20 gets $clientout
21 gets $clientout
22 expect $clientout {MAP07: dead simple} 0
23 gets $clientout
24 expect $clientout {You got the super shotgun!} 0
25
26 # run doom1.wad demo1
27 client "wad doom1.wad"
28 wait 4
29 clear
30 client "playdemo demo1"
31 wait 10
32
33 gets $clientout
34 gets $clientout
35 gets $clientout
36 expect $clientout {E1M5: Phobos Lab} 0
37 gets $clientout
38 expect $clientout {Picked up the armor.} 0
39 expect $clientout {You got the shotgun!} 0
40 # the following lines fail on r1264
41 expect $clientout {Picked up an armor bonus.} 0
42 expect $clientout {Picked up an armor bonus.} 0
43 expect $clientout {Picked up an armor bonus.} 0
44}
45
46startClient
47
48set error [catch { main }]
49
50if { $error } {
51 puts "FAIL Test crashed!"
52}
53
54end
55