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