0023161: Select publicly accessible data files for OCCT tests
[occt.git] / tests / xcaf / begin
1 # in tests expression "set AddToDocument ASSEMBLY_C_L" means creating assembly and initializing colors and layers
2 # and expression "set AddToDocument COLORS_LAYERS" means initializing colors and layers
3 #
4 if { [array get Draw_Groups "TOPOLOGY Feature commands"] == "" } {
5     pload DCAF
6     pload TOPTEST
7     pload XDE
8 }
9
10 cpulimit 1000
11
12 set ErrorCode 0
13 ##############
14 ### ErrorCode means :
15 ### 0 - Success
16 ### 1 - Warning
17 ### 2 - Error
18 ###############
19
20 #if {[string compare [datadir] "."] == 0} { 
21 #  datadir [file dirname [info script]]/data
22 #}
23
24 if { [info exists imagedir] == 0 } {
25    set imagedir .
26 }
27 if { [info exists test_image ] == 0 } {
28    set test_image photo
29 }
30
31 #set WorkDirectory "$env(TmpDir)"
32 set WorkDirectory $imagedir
33
34 if {![file exists $WorkDirectory]} {
35     catch {[file mkdir $WorkDirectory]}
36 } else {
37     if {![file isdirectory $WorkDirectory]} {
38         puts "The assigned work directory $WorkDirectory is not directory! Exit ..."
39         exit
40     }
41 }