0023087: Upgrade of the OCCT test system
[occt.git] / tests / 3rdparty / begin
1 if { [string compare [datadir] "."] == 0 } {
2    datadir [file dirname [info script]]/data
3 }
4
5 cpulimit 1000
6
7 if { [array get Draw_Groups "Primitive building commands"] == "" } {
8     pload TOPTEST
9 }
10
11 if { [array get Draw_Groups "ZeViewer"] == "" } {
12     pload AISV
13 }
14
15 if { [info exists imagedir] == 0 } {
16     set imagedir .
17 }
18 if { [info exists test_image ] == 0 } {
19    set test_image photo
20 }
21
22 if { [info exists WorkDirectory] == 0 } {
23     set WorkDirectory "/tmp"
24     if { [array get env TEMP] != "" } {
25         set WorkDirectory "$env(TEMP)"
26     }
27 }
28                     
29 vinit
30