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