0023087: Upgrade of the OCCT test system
[occt.git] / tests / draft / begin
CommitLineData
40093367 1# File : begin
2
3if { [array get Draw_Groups "TOPOLOGY Check commands"] == "" } {
4 pload TOPTEST
5}
6
7# to prevent loops limit to 10 minutes
8cpulimit 600
9
10if { [string compare [datadir] "."] == 0 } {
11 datadir [file dirname [info script]]/data
12}
13
14if { [info exists imagedir] == 0 } {
15 set imagedir .
16}
17if { [info exists test_image ] == 0 } {
18 set test_image photo
19}